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SERVICE 


Spiele satt: 

Wir prüften für Sie die 

wichtigsten und besten Spiele 

für den 16/P4 sowie diverse 

Profisoftware auf den Seiten 4—7 
und 122-123 


Schalten mit dem C 16: 
Eine einfache Lösung, 
mit dem Kassettenport 
zu steuern 


auf Seite 9 


Die „kleinen’’ Commodores: 


Spiel- oder vollwertiger 
Computer? ab Seite 10 
Werkzeug: 

Wölfe im Schafspelz ab Seite 12 
Lektüre: : 
Das große Grafikbuch auf Seite 13 
Wettbewerb: 

Gewinnen Sie einen 


Tausendmark-Schein ab Seite 14 


Service: 
Kleinanzeigen—Abo— 


Bestellcoupons ab Seite 63 


Die Spiele für die 
„kleinen’’ Commo- 
dore werden immer 
besser und spannen- 
der. Auf sechs 
Seiten im Heft sagen 
wir Ihnen, welche 
Sie unbedingt haben 
sollten — aber auch, 
welche nicht. 


Bezugsquellen: 

Was es gibt und wo Sie 
es bestellen können, 
von der Hard; bis zur 


Software ab Seite 118 
Impressum auf Seite 120 
Tastatur: 


Profitastatur für den 
Gummi-Eumel? Kein 
Problem, für ganze 50 
Mark können Sie 

es schaffen 


ab Seite 124 


LISTINGS 


Rechnung: 

Die ‚Kleinen‘ im 
profimäßigen Einsatz — 
So schreiben Sie damit 


Rechnungen ab Seite 18 
Apfelmännchen: 

Das Rechengenie zeigt, 

was es kann auf Seite 22 


Einzelschrittsimulator: 
Maschinenspracheprogramm 
Schritt für Schritt 
durchtesten ab Seite 23 
Hires-Scroll: 

Schafft einen beweglichen 

Hintergrund ab Seite 26 


Filmkamera-Steuerung: 
Steuern Sie Ihre Kamera 


. über den Kassettenport ab Seite 27 
Latein: 
Konjugation und 
Deklination ab Seite 29 
Börse: 


Wie gut können Sie mit 


Aktien umgehen? ab Seite 34 
Robert: 

Streichen Sie doch 

mal Berge an ab Seite 38 


INHALT COMMODORE-WE 


Anschlußpunkte 


Für unsere Bastler 
zwei interessante 
Vorschläge: Ein- 
mal eine Schaltung, 
um mit dem 
Kassettenport des 
C 16 etwas zu 
steuern und: So - 
erhält der Gummi- 
Eumel 116 eine 
vollwertige Tasta- 
tur — für unter 

50 Mark. 


Für Spielefans 
gibt es auch in 
dieser Sonder- 
ausgabe einige 
interessante 
Listings > 


Gehirn einschalten, 
Intelligenz ist 
gefordert: Gewin- 
nen Sie 1000 Mark 
bei unserem 


kleinen Wettbewerb — 
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Weiter mit 
Schaltung 1 


13 Motor (Relais+) } 
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WETTBEWERB 


BUNDESBANK E 


1000 Dora FÜR DIE BESTE LÖSUNG " 


Poison: 
Vorsicht, Gift liegt 
in der Luft ab Seite 42 


Mini-Roulett: 

Für die Fans der 

kleinen weißen Kugel: 

Monte Carlo auf dem 

Bildschirm ab Seite 45 


Sprites: 

Ihr 16/116 kann doch 

Sprites. Wir zeigen Ihnen, 

wie Sie mit einem kleinen 

Trick den Rechner 

dazu bringen ab Seite 52 


Atlantik-Krieg: 
Sie sind ein 
U-Bootkapitän ab Seite 58 


Einsiedler: 
Solitaire — j 
einmal anders ab Seite 62 


Netzteilberechnung: 
Interessant für 
Elektronik-Bastler ab Seite 68 


Mofa: 
Pauken für den Führerschein 
via Bildschirm — So 


jeden Prüfer ab Seite 72 


Alien Attack: 
Retten Sie die Erde ab Seite 77 


Mathe-Hilfe: 

Moderner Luxustaschen- 

rechner mit 

Textverarbeitung ab Seite 80 


Gewinn erzielen ab Seite 85 


Miet-Nebenkosten: 

Kontrollieren Sie Ihre 
Nebenkostenrechnung 

einfach per Computer ab Seite 91 


Finanzamt keinen 
Pfennig zuviel! ab Seite 96 


Grafik anschaulicher ab Seite 101 


Handelskalkulation: 
So errechnen Sie 
Gewinn und Verlust ab Seite 106 


Französische Verben: 
Verblüffen Sie den 
Französischlehrer ab Seite 109 


auf dem Bildschirm ab Seite 111 


Katze? ab Seite 114 
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SPIELE SATT 


Natürlich können die schwarzen Rechner von Commodore dem ehr- 
würdigen C 64 in punkto Spiele noch nichts vormachen. Doch was mittler- 
weile angeboten wird, ist meist auch nicht von schlechten Eltern. 
Wir untersuchten diverse Spiele aus dem Angebot der Firma Stechmann. 


Eine sinnvolle Spielaufgabe ohne 
mörderische Ballerei, die auch nach 
längerer Spielzeit nicht langweilig 
wird. Da es sehr viel Ladung nach 
oben zu bringen gilt, dürfte die Auf- 
gabe auch nach einiger Übung nicht 
all zu leicht zu erfüllen sein. 


LUNAR DOCKING 


Hersteller: Tynesoft 


Ziel des Spieles ist es, eine Raumsta- 
tion mit neuer Energie zu versorgen. 
Hierfür steht als Spielfigur ein Astro- 
naut mit Raumanzug bereit, der die 
wichtige Energieversorgung überneh- 
men soll. Von einem Spaceshuttle 
aus werden die einzelnen Elemente 
auf der Erdoberfläche verstreut. Die- 
se müssen nun aufgesammelt 

und in den Frachtraum der Raum- 
station gebracht werden. 
Schwierigkeiten hierbei: 

1. Es kann nur jeweils eine Ration 
mitgeführt werden. Bei mehr gibt es 
eine Spielfigur Abzug. 


JACK ATTACK 


Hersteller: Commodore 


Dieses Modul gehört zur Kategorie 
der Original-Commodore-Spiele, 
deren Qualität ja noch nie besonders 
anspruchsvoll war. Außerdem muß 
fairerweise erwähnt werden, daß die- 
ses Spiel bereits seit 1983 existiert, 
also nicht mehr zu den jüngsten ge- 
hört. Doch diese Meinung ist natür- 
lich subjektiv, denn nicht jeder ist 
verwöhnt wie wir, was Spiele anbe- 
langt. Bei Jack Attack geht es dar- 
um, mit der Spielfigur verschiedene 
Plattformen so zu verschieben, daß 
umherschwebende Ballons zer- 
quetscht werden. Die Grafik ist hier- 
bei recht primitiv gehalten. Die bei- 
‘den einzigen Gefahren bei diesem 
Spiel liegen darin, entweder von 

den Ballons erwischt oder 


Jack Attack 


64 levels of exciting arcade play requiring skill and strategy. 


u 


ln 


2. Über der Erde kreisen jede Menge 
Raumschrott und Satelliten. Diese 
sind bei Berührung ebenfalls töd- 
lich. Daher muß ein vernünftiger 
Weg durch die Unordnung gefunden 
werden, dieser Spielteil ähnelt ein 
bißchen dem altbekannten Frogger. 
3. Um die Ladung erfolgreich zu 
verstauen, muß sehr vorsichtig manöv- 
riert werden. Bei Unaufmerksamkei- 
ten wird dies als Versuch gewertet, 
eine zweite Ladung annehmen zu 
wollen. Effekt: Spielerverlust! 
Beurteilung: Empfehlenswert. 


[ei commodore 


unter einer verschobenen Plattform 
begraben zu werden. 
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Die Plattformen können sowohl 
gezogen als auch geschoben wer- 
den, sollten allerdings mehrere 
Steine aufeinanderliegen, so ist die 
Gefahr groß, eine Plattform auf die 
Spielfigur zu bekommen, worauf- 
hin diese natürlich dahinscheidet. 
Beurteilung: Für Kinder ist dieses 
Spiel durchaus empfehlenswert, 
allerdings sollte klar sein, daß es 
natürlich in keiner Weise mit den 
neueren Spielen, welche für diese 
Rechner erschienen sind, konkur- 
rieren kann. 


ZORK 


Hersteller: Infocom 


Den älteren unserer Leser dürfte 
Infocoms “Zork“ wohlbekannt sein. 
Mittlerweile gibt es drei Versionen 
dieses Adventures, welche seit neue- 
stem auch alle drei für den Plus/4 
bzw. C 16/116 mit 64 KByte erhält- 
lich sind! Damit ist eine weitere 
Domäne des C 64 gebrochen, denn 
anspruchsvollere Adventures als die 
Infocoms dürften schwerlich zu fin- 
den sein. Die Ausstattung des Pake- 
tes ist, wie gewohnt, vorzüglich ge- 
staltet. So findet der Käufer in sei- 
ner Verpackung eine mysteriöse 
Karte des alten Königreiches, außer- 
dem eine Art Geschichtsbuch, mit 
dessen Hilfe das Spielgeschehen 
hautnah vor Augen geführt wird. 
Hier natürlich gleich vorweg: Zork 
ist auch in der 3.5er-Version ein 
englischsprachiges Adventure, daher 
sollten wirklich nur solche Leute es 
erwerben, die dieser Sprache auch 
halbwegs mächtig sind. Gleicherma- 
ßen stellt das Adventure dadurch 
auch eine gute Möglichkeit dar, 
sich mit dieser Sprache vertraut zu 
machen. 
Weiterhin sind einige sehr nützliche 
inweise in einer Art “User 
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Guide‘ aufgestellt, die natürlich 
nicht all zu viel über das Spielge- 
schehen informieren. 

Inhalt von Zork: Irgendwo im fer- 
nen “Underground Empire‘ sollen 
sagenhafte Schätze und Geheim- 
nisse verborgen sein. Diese gilt es 
nun zu finden. Wie sollte es anders 
sein, auf dem Weg zu diesen Schät- 
zen lauern natürlich die vielfältig- 
sten Aufgaben und Gefahren auf 
den Spieler. Das besondere an Info- 
coms Adventure ist dessen gewalti- 
ger Sprachschatz. So sind die Mög- 


Your greatest challenge 
lies ahead-and downwards. 


lichkeiten, um Aktionen durchzu- 
führen, sehr umfangreich. Auch die 
jeweiligen Ortsbeschreibungen sind 
sehr ausführlich gehalten. Bei die- 
sem Umfang ist es klar, daß nicht 
mehr viel Speicherplatz für Grafiken 
übrigbleiben konnte. Daher muß 
der Spieler, wie bei allen Infocom- 
Adventures, auf Grafiken verzich- 
ten. Alle Informationen müssen da- 
her aus dem Text gezogen werden, 
ein Grund mehr für gute Englisch- 
Kenntnisse. 


Beurteilung: Sehr empfehlenswert! 
Diese brillante Aufmachung des 
Spieles untermauert einmal mehr 
den Ruf Infocoms als Rolls-Royce 
unter den Adventureanbietern. 
Durch die hervorragenden Begleit- 
materialien lohnt es sich wirklich, 
dieses Spiel anzuschaffen. 

Die Besitzer eines Plus/4 oder er- 
weiterten 16ers müssen nun nicht 
mehr auf Adventure-Genüsse der 
Extraklasse verzichten. 


MERCENARY 


Hersteller: Novagen Software 


Auch bei diesem Spiel handelt es 
sich um einen alten (C 64-)Bekann- 
ten. Die Adaption auf Plus/4 oder 
erweiterte l6er steht dem Original 
jedoch in nichts nach und stellt 
unter Beweis, daß die Fähigkeit 
des „Einsteigercomputers‘‘ denen 
des € 64 nicht nachstehen müssen. 
Neu ist außerdem, daß es für die 
Plus/4 wie die 64er-Version nun 
die Fortsetzung des Kassenschla- 
gers gibt: Mercenury — The second 
City. Diese ist für all diejenigen 
gedacht, welche das Unmögliche 
möglich machten und die Merce- 
nary-Aufgabe bereits gelöst haben. 
Die Aufgabe braucht eigentlich 
nicht mehr lange erklärt werden, 
denn das Programm ist, wie gesagt, 
bereits hinlänglich bekannt. Für 
die Neulinge ein “Shortcut“: 

Mit Ihrem Raumschiff sind Sie auf 
einer fremden Welt notgelandet, 
dem Planeten Targ. Zu allem Über- 
fluß herrscht auf diesem Planeten 
auch noch Krieg zwischen zwei 
Mächten, den Sie neben dem ei- 
gentlichen Spielzweck natürlich 
auch noch überleben müssen. Ein- 
ziger Gefährte bei dieser Aufgabe 
ist der Bordcomputer Benson, der 
öfters seine Meinung von sich gibt 


5 


und meist die einzige Hilfestellung 
zur Lösung der Aufgabe ist. Ach 
ja, die Aufgabe: Suchen Sie nach 
genügend Geld und Eirsatzteilen, 
um Ihr Raumschiffwrack wieder 
flugtüchtig zu machen. Damit der 
arme Held nicht zu Fuß durch das 
Abenteuer laufen muß, stehen ver- 
schiedene Fahr- und Flugzeuge 
zur Fortbewegung bereit, die aller- 


dings natürlich auch Geld kosten. 
Geld können Sie sich in einigen 
Jobs verdienen, die von Zeit zu 
Zeit angeboten werden. Soviel das 
altbekannte. 

Second City geht auf dieselbe Wei- 
se weiter, nur fehlen Ihnen hierbei 
die nützlichen Hinweise des Hand- 
buchs, Sie sind also ganz auf sich 
alleine gestellt. 

Beurteilung: Sehr empfehlenswert! 
Diese Version hat nichts vom Spiel- 
reiz des 64er-Vorbildes eingebüßt 
und überzeugt auch auf dem 
Plus/4 durch gute Animation und 
großen Spielreiz. 


SABOTEUR 


Hersteller: Durell Software 


Der Titel läßt Schlimmes vermuten, 
doch es kommt noch ärger. 

Ein Spiel, welches wohl nur Perso- 
nen mit starken “Rambo“-Ambi- 
tionen empfohlen werden kann, die 
irgendwelche Gelüste am Steuer- 
knüppel ausleben wollen. Hierfür 
steht eben dieser ‚„Saboteur von 
Chaos‘, so der Originaltitel, zur 
Verfügung. Mit einem vermumm- 
ten (Herr Zimmermann wird sich 
freuen) Männchen muß versucht 
werden, in einem als Warenhaus ge- 3 
tarnten Rebellennest eine Diskette 
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zu finden. Auf dieser Diskette be- 
finden sich irgendwelche Namen 
irgendwelcher Untergrundkämpfer, 
die irgendwer benötigt und deswe- 
gen Sie beauftragt hat, diese zu ho- 
len. So viel konnten wir der Anlei- 
tung entnehmen, obwohl diese 
durch die Übersetzung ins deut- 
sche doch etwas konfus geriet. 
Kleiner Auszug gefällig? 

„Wenn Sie die WERF-GEBRAUCH 
Steuerung benutzen, wenn ein Ge- 
genstand in Ihrem NEAR DIS- 
PLAY ist, dann wird der NEAR 
Gegenstand ein HELD Gegenstand 
und wenn Sie zu der Zeit einen 
HELD Gegenstand hatten, wird 
daraus ein NEAR Gegenstand.“ 
Alles klar? Wenn nicht, machen Sie 
sich nichts daraus, denn das Spiel 
funktioniert auch ohne solch tief- 
gründiges Wissen, Hauptsache, Sie 
machen möglichst viele Wächter 
nieder. Zur Abwechslung können 
Sie umherlaufende Hunde erledi- 
gen, das bringt jedoch keine Punk- 
te. Es gibt sogar Unterschiede 
zwischen Killen und Killen: 
„Wächter mit Waffe getötet: 100 
Punkte — Wächter durch Schlagen 
oder Treten getötet: 500(!) 
Punkte.“ (Richtiger NINJA-Stoff). 
So die Anleitung: Wer nach alle- 
dem immer noch Verlangen nach 
solch einem Spiel hat, kommt wohl 
auch für das folgende in Frage. 
Beurteilung: Nicht empfehlenswert. 
Eines weiteren Kommentares ent- 
halten wir uns. 


COMMANDO 


Hersteller: Elite 


Hierbei handelt es sich um ein eben- 
so fragwürdiges Spielchen wie das 
vorhergende. Die Story ist aus ande- 
ren ähnlich dumpfen Spielen bereits 
bekannt, hier nur das Wichtigste: 
Die Spielfigur (sinnigerweise 
„Superjoe‘ genannt) ist der letzte 
Retter für die zivilisierte Menschheit 
und darfsich dementsprechend auf 
dem Bildschirm austoben. Oberstes 
Gebot: Du darfst kein Mitleid zei- 
gen (Zitat Originalanleitung). 

Damit das ganze etwas einfacher ge- 
rät, führt unser Joe ein M60-Maschi- 
nengewehr (was auch immer das 
sein mag) mit sich und muß dieses 
natürlich dazu benutzen, reihenwei- 
se die Feinde niederzumähen. 
Beurteilung: Siehe „Saboteur“. 


BOMB JACK 


Hersteller: Elite 


Bomb Jack kennen die meisten wahr- 
scheinlich bereits vom Spielautoma- 


ten her, auf welchem dieses Männ- 
chen umherturnte. Nun dürfen auch 
die C 16-Besitzer in den Genuß eines 
heimischen Jack’s kommen, nachdem 
ja die 64er-Version seit geraumer 
Zeit bereits vorhanden ist. 

Da es sich hier um die Version für 

64 K handelt, wurde die er 
fik etwas abgespeckt, der Sound fiel 
ebenfalls sehr mager aus. Doch trotz- 
dem wurde für diese Verhältnisse 
erstaunliches geleistet, man möchte 
kaum glauben, was doch mit einem 
unerweiterten 16er bereits realisier- 
bar ist. Die Grafik entspricht noch 
weitgehend dem Original, auch wur- 
de eine sehr gute Auflösung erreicht. 
Ziel des Spieles ist es, sich mit der 
Spielfigur Jack über verschiedene 
Plattformen zu bewegen und dabei 


Bomben aufzusammeln. Dabei stö- 
ren natürlich etliche umherschwir- 
rende Viecher, denen es auszuwei- 
chen gilt. Jack kann per Feuerknopf 
springen, wird dieser Knopf mehr- 
mals hintereinander betätigt, so 
schwebt er ganz langsam nach un- 
ten. Von Zeit zu Zeit tauchen 
Extra-Punkte auf, die es zu fangen 
eilt. Hierfür gibt es zum Beispiel 
eine Multiplizierung des Punkte- 
kontos oder auch die — leider nur 
kurzzeitige — Unsterblichkeit Jacks. 
Während dieser kann Jack nun sei- 
nerseits Jagd auf all das gräusliche 
Getier machen, welches ihm im 
Normalfall das Leben schwer 
macht. 


Beurteilung: Empfehlenswert. Hier 
wurde wirklich eine ordentliche 
Fassung des bekannten Arcade- 
Games verwirklicht, die natürlich 
aufgrund des Speichervolumens 
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nicht ganz so aufwendig gehalten 
werden konnte wie das Original. 
Trotzdem ist Bombjack ein Spiel, 
welches so schnell nicht langweilig 
werden dürfte. 


EUROPEAN GAMES 


Hersteller: Tynesoft 


Auf der inzwischen schon leicht ab- 
geflauten Welle der Sport-Spiele 
kommt Tynesoft mit den Europa- 
Meisterschaften angeschwommen. 
Diese wird im Falle der C16-Ver- 
sion in fünf Disziplinen ausge- 
tragen: 

ewichtheben 

— Rudern 

— Weitsprung 

— Hammerwurf 

— Schwimmen. 

Alle fünf Disziplinen lassen sich mit 
einem Wort umfassen: Ein harter 
Tag für den Joystick. Denn im Gegen- 
satz zu den bekannten Sport-Spielen, 
in denen es auf gute Koordination 
der Bewegungsabläufe ankommt, 
reicht hier Geschwindigkeit. So 
muß bei jeder Disziplin der arme 
Knüppel mit geradezu aberwitziger 
Geschwindigkeit von einer Seite zur 
anderen gedroschen werden, um der 
jeweiligen Spielfigur etwas Tempo 
einzuhauchen. Sollte sich der arme 
Spieler im Besitz eines Uralt-Joy- 
sticks befinden, der noch keine 
Mikroschalter besitzt, so dürften 
diese Übungen denen in einem 
Body-Building-Studio gleichkom- 
men. Wir zogen zum Test den 
Quickshot II von SVI heran, der ei- 
nerseits mit Mikroschaltern ausge- 
stattet ist und andererseits über eine 
enorme Länge verfügt, so daß mit 
geringstem Kraftaufwand der Rechts- 
Links-Wechsel durchgeführt werden 
kann. Trotz alledem rauchten die 
Köpfe, als versucht wurde, den je- 
weiligen Highscore zu überbieten. 
Ein Erfreuliches wurde hier beim 
Spielverlauf verwirklicht: Nach je- 
dem Durchgang fragt der Computer, 
ob noch einmal gespielt werden soll. 
Erst wenn diese Frage verneint 
wird, geht es weiter zur nächsten 
Disziplin. So kann jeder in Ruhe 
üben, um den richtigen Bogen zu 
finden. Die Grafikanimation darf 
als mittelprächtig bezeichnet wer- 
den, diese ist aber durchaus aus- 
reichend. 

Bewertung: Bedingt empfehlens- 
wert. Zwar sind die Disziplinen im 
einzelnen recht schön gestaltet, 
doch ist durch die vergleichsweise 
primitive Steuerung viel Reiz aus 
diesem Spiel genommen. 


Und nun genug gespielt, denn 
Kingsoft wartet mit diversen 
Leckerbissen für die Besitzer der 
C 16-Reihe auf: Arbeits- und 
Anwendungsprogramme, die sich 
hinter denen erheblich teurerer 
Geräte nicht zu verstecken 
brauchen. 


MUSIC MASTER 


Etwas skeptisch waren wir durchaus, 
als es ans Ausprobieren dieses Pro- 
grammes ging. Stand doch auf der 
Verpackung ‚verwandelt Ihren 
Computer in einen Sequenzer und 
Synthesizer‘. Große Worte, be- 
denkt man das beschränkte Spei- 
chervolumen der 16er, auf denen 
dieses Programm läuft. Doch die 
Wirklichkeit holte uns schnell ein, 
es stellt sich heraus, daß nicht zu- 
viel versprochen wurde! 

Auf dem Bildschirm erscheinen 
zunächst eine Klaviertastatur sowie 
die einzelnen Einsteller für besonde- 
re Effekte. Auf der Klaviatur sind 
die Tasten des Computers verzeich- 
net, mit welchen die einzelnen 
Töne erzeugt werden können. Wei- 
terhin erscheint jeder Taste zuge- 
ordnet die passende Note. So sind 
schon nach kurzer Einübungszeit zu- 
sammenhängende Musikstücke mög- 
lich. Nun folgt die eigentliche Be- 
dienung des Programmes, denn es 
sind wirklich hervorragende Fea- 
tures enthalten. Hiervon zeugt al- 
leine schon die äußerst umfassen- 
de Anleitung, die wirklich jeden 
Programmpunkt gut zu erklären 
weiß. 

Mit dem Programm sind sehr viele 
Spezialeffekte möglich. So kann 
zum Beispiel ein Musikstück edi- 
tiert werden. Das heißt, daß je 

nach Können des Anwenders, mehr 
oder weniger schnell, Noten einge- 
geben werden, welche sich der 
Computer merkt. Diese können 
dann auf vielfältige Weise verändert 
und bearbeitet werden. Es ist mög- 
lich, einzelnen, schon gesetzten 
Noten neue Oktaven zuzuordnen, 
neue Spieldauern zu bewirken, 
Tempo zu verändern und vieles 
mehr. Auch kann auf zwei Kanä- 
len hintereinander aufgenommen 
werden, die wahlweise synchron ge- 
schaltet werden und so zu einem 
harmonischen Ganzen zusammen- 
gefügt werden. Weiterhin ist es mög- 
lich, einzelne Musikstücke, die 
selbst erstellt wurden, auf Diskette 
oder Kassette abzuspeichern! King- 
soft geht sogar weiter und bietet in 
der Anleitung auch noch Programm- 
listings an, die die Übernahme von 
Melodien in andere Programme er- 


MUSIC MASTER 


e Verwandelt Ihren 
Computer in einen 

Sequenzer 

und Synthesizer 


PAINTBOX 


e Mal- und 
Zeichenprogramm 
in 121 Farben 
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möglichen, wenn diese mit Music 
Master erstellt wurden. 

Weiterhin sind im Programm ver- 
schiedene Rhythmen gespeichert, 
die zusätzlich verwendet werden 
können, um beim Editieren noch 
höhere Qualität zu erreichen. 
Selbstverständlich werden diese 
Rhythmen auch übernommen, wenn 
die Melodie abgespeichert oder ein- 
geladen wird. 


Fazit: 


Hier konnten nur die wichtigsten 
Programm-Finessen aufgeführt wer- 
den, da der Testbericht sonst erheb- 
lich länger geworden wäre. Dem 
Käufer werden wohl auf längere 
Sicht noch viele kleine Einzelheiten 
auffallen, die die Arbeit mit Music 
Master zur wahren Freude geraten 
lassen. Es ist schon erstaunlich, 

was der Programmierer mit diesem 
Synthesizer aus dem C 16 heraus- 
gekitzelt hat. 


PAINTBOX- 


Da wir gerade beim Kreativen sind: 
Auch ein Malprogramm bietet King- 
soft mit der Paintbox an. Dieses 
Malprogramm bietet alle Möglich- 
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keiten, die bereits von professionel- 
len Programmen her bekannt sind. 
So sind neben den Grundoperatio- 
nen wie Kreise zeichnen, Linien, 
Strahlen und Ähnliches erzeugen 
natürlich auch Fill-, Lösch- und 
Farbwahlroutinen vorhanden. 
Alleine zum Zeichnen stehen nicht 
weniger als sieben Möglichkeiten 
zur Verfügung. 

Weiterhin kann der Anwender aus 
einer Farbpallette bis zu 121 Farb- 
Variationen auf dem Bildschirm 
erzeugen. Es ist natürlich auch die 
Möglichkeit gegeben, mit verschie- 
denen Pinselstärken zu arbeiten, 
hierfür stehen 8 verschiedene 
Varianten zur Auswahl. 

Neue Features birgt das Programm 
indes auch. So ist es beispielsweise 
möglich, die Geschwindigkeit des 
Cursors zu verändern, mit dem die 
Grafiken erzeugt werden. Dies ge- 
schieht, ähnlich zum Amiga, über 
ein Untermenü, in welchem an ei- 
nem Balkendiagramm die Geschwin- 
digkeit variiert werden kann. 
Auch ist es möglich, die Helligkeit 
der einzelnen Farben noch zu verän- 
dern, so daß dieses Programm eine 
wirklich erstaunliche Farbvielfalt 
erzeugen kann. Um die erstellten 
Bilder zu sichern beziehungsweise 
bereits gespeicherte Bilder neu zu 
bearbeiten, sind Lade- und Save- 
Routinen vorhanden, die sowohl 
für Diskette als auch für Kassette 
verwendet werden können. 


Fazit: 


Neben dem umfangreichen Befehls- 
satz glänzt das Programm durch eine 
außerordentlich hohe Geschwindig- 
keit (sofern dies vom Anwender ge- 
wünscht wird). Auch die Sonder- 
funktionen konnten durchaus über- 
zeugen. Die ausführliche deutsche 
Anleitung rundet das positive Urteil 
von Paintbox ab und verdeutlicht, 
das der C 16 zu Großem fähig ist. 


Alles in allem bliebe zu sagen, daß 
sich das Angebot qualitativ hoch- 
wertiger Software für die C 16/116/ 
P4 hervorragend entwickelt hat. 
Es bleibt zu hoffen, daß Kingsoft 
und dem Oscar-Autor Udo Gertz 
(der mit der Winterolympiade) 
auch weiterhin so erstaunliche Pro- 
gramme einfallen. Weiterhin im 
Angebot von Kingsoft sind außer- 
dem noch Business-Programme zur 
Datenverwaltung und Kalkulation 
mit den 16er. Diese werden derzeit 
noch einem ausführlichen Test 
unterzogen, mehr darüber in der 
Normal-Ausgabe der 
COMMODORE-WELT. 

T. Seibt 


Te. 
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TIPS & TRICKS 


in der Lage sein, auch ein Relais 
Al a,‘ I = Ä zu schalten. Über den Relaiskon- 
takt könnte dann die Filmkamera 
gesteuert werden. Gesagt, getan. 
DE A 1 Ein Adapter, mit einem kleinen Re- 
a lais, war schnell gebastelt und wur- 


ER EN ü IX 2 de einem Test unterworfen, der zur 
Wie Sie mit einfachen Mitteln auch komplizierte Steuerungsvorgänge vollen Zufriedenheit ausfiel. Die 
realisieren können, ist Inhalt dieses Berichtes. Der Autor arbeitet privat auf Probleme begannen aber erst, als 


den Rechnern Plus 4 und C 16 und verwendet diese für die diversesten die Schaltung am Computer getestet 


Steuerungsaufgaben. Sein neuester Streich: Kamerasteuerung werden sollte. Es fehlte nämlich 

via Kassettenport! . die Adresse, mit der der Ausgang 
angesteuert werden konnte. Die vor- 

Da die Firma Commodore ihre Com- den Kassettenport zu diesem handenen SAVE- und LOAD-Rou- 
putertypen der Reihe C16/116 nicht Zweck heranzuziehen. Nach einem tinen waren nicht geeignet (Ab- 
mit einem Userport ausgestattet Blick in den Schaltplan fand ich schaltung des Bildschirms, Zerstö- 
hat, ergeben sich mit diesen Geräten dann die Lösung. Mir fiel nämlich rung des Bildschirmaufbaus) und 
immer einige Schwierigkeiten, ei- auf, daß der Computer den Kas- so mußte nach einem anderen Weg 
nen Schaltvorgang, wie auch immer, settenmotor über einen Leistungs- gesucht werden. Den fand ich dann 
an die Außenwelt weiter zu geben. transistor ein- und ausschaltet. in der Adresse 64784. Wenn man 


Einige findige Köpfe haben sich die Von den Daten her mußte dieser also diese Adresse anspricht und 


Schaltadapter am Kassettenrekorderanschluß . C-16 /116/ Plus 4 BWelte (c}1986 


Rekerderanschl. Schaltbild Nr1 
C-16/116/Plus4 


6 

5 
B4 
3 Motor (Relais+) 

2 } Weiter mit Schaltung 1 

1 


Anschlußpunkte am Kasse ttenrekorderadapter Nusaitelden 


selben zerbrochen und bieten einige So einfach ist das Schaltbild des Inter- zwar mit dem Befehl >Poke 
Lösungen an, die am Expansions- faces für den Kassettenport. Mit diesem 64784,2< wird der Ausgang einge- 
port betrieben werden. Siehe auch Interface wird es möglich, externe schaltet und mit >Poke 64784, 
Heft 10/11 der COMMODORE Geräte anzusteuern. . 255< wieder ausgeschaltet. 
WELT. Allerdings bedingen diese i Schaltung (1) zeigt den einfachen 
Möglichkeiten immer einen Ein- Aufbau des kleinen Interfaces zum 
griff in den Computer, um die eine : Anschluß der Filmkamera an den 
oder andere Verbindung herzustel- Computer. Er erfolgt mit einem 
len oder aufzutrennen. Alles dieses . 8poligen Stecker, wie er sich auch 
behagte mir nicht besonders und .. am Kassettenrekorder befindet. 
so suchte ich nach einer anderen Bild (2) zeigt eine Lösung, die die 
Lösung für mein Problem. etwas schwierige Beschaffung des 
— Steckers erübrigt. Hierbei handelt 
PROBLEMLÖSUNG i 

GESUCHT UND GEFUNDEN MINI-INTERFACE ZUM 
—— EIGENBAU 

Als Schmalfilmamateur suchte ich 

eine Möglichkeit, bei Trickaufnah- - es sich um einen handelsüblichen 
men die Übersicht über die gemach- Adapter, wie zum Anschluß der 
te Bilderzahl, Filmlaufzeit und C-64-Datasette am C-16 vorgese- 
Filmlänge zu behalten. Auch soll- hen ist. Hier ist es leicht möglich, 
te der Computer die Steuerung an die entsprechenden Leitungen 
bzw. die Auslösung der Filmkame- zu kommen. Ab hier geht es dann 
ra übernehmen. Nach einigem mit der Schaltung aus Bild (1) 


Nachdenken kam mir die Idee, weiter. 
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COMPUTER UND SPIELE 
„SPIELCOMPUTER” 


UND ARBEIT 


Es gab einmal, ältere Zeitgenossen mögen sich 
erinnern, selige Zeiten des Computertums. Zu den da- 
maligen Tagen fragte sich der Elektronik-Freak, 
welchem Gerät er nun den Vorzug geben solle: Der 
Atari-Spielkonsole oder dem „Volkscomputer” VC 20. 
In jenen Tagen entschied sich die Zukunft der 
Homecomputer, die nicht zuletzt auch wegen des 
Spieleangebotes heranreifte. Was können die drei 
Einsteigercomputer in dieser Hinsicht bieten? 


Es ist wirklich noch nicht 
all zu lange her, denn 
anfangs der 80er Jahre 
wurde der heute schon 
legendäre VC 20 ange- 
boten. Zu Preisen, bei 
denen heutigen “Cracks“ 
nur noch das Blut in 

den Adern gefriert. 

Dort auch begann dieser 
Existenzkampf, der 
schon im Vorwort be- 
schrieben ist. Denn da- 
mals noch mußten sich 
Spielefreaks entscheiden, 
ob nun ein reines Tele- 
spiel oder ein Heimcom- 
puter die bessere Lösung 
wären. Die Vergangen- 
heit hat gezeigt, daß die 
Homecomputer rundweg 
die beste Veranlagung für 
alle Zwecke boten. 
Darum begannen damals, 
im Steinzeitalter des 


- 


Computertums, die ersten 
Adaptionen erfolgreicher 
Arcade-Games auf rein- 
rassigen Computern. Wo 
bei den Spielkonsolen 
meist knappe hundert 
Mark pro Spiel berappt 
werden mußten, konnten 
die Enthusiasten bereits 
beste Software für ein 
Butterbrot erwerben. 
Dies war der Beginn... 


STOFF FÜR 
MUSEEN 


Seitdem sind einige Tage 
ins Land gegangen. Der 
VC 20 wird schon eifrig 
in neudeutschen “Com- 
putermuseen“ ausgestellt, 
ehemals stellte dieser 
Computer einen neuen 
Standard dar. 


Spritedarstellung, viel- 
fältige Bildschirmfarben 
sowie programmierter 
“Sound‘“ machten aus 
den grauen und unmäßig 
teuren Bürorechnern 
Spielgeräte für den Heim- 
gebrauch. Der Nachfolger 
des VC 20, C 64 (Legen- 
de schon zu Lebzeiten) 
räumte und räumt ge- 
waltig ab, wenn es um 
Spiele geht. Nur allzu 
gerne weisen die Besitzer 
dieser Computer (zu 
recht) auf die wirklich 
umwerfenden Möglich- 
keiten betreffend Grafik 
und Sound auf dem C 64 
hin. Mit einem großen 
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Problem. Diese Program- 
mierung gestaltet sich 

als unglaubliche Schinde- 
rei, denn komfortabel 
war weder das VC 20- 
Basic noch das des 64ers. 
Wer es beherrschte (natür- 
lich auch die Maschinen- 
sprache), holte aus diesen 
Geräten Unglaubliches 
heraus. Nur: Wer unter 
den Feld-, Wald- und Wie- 
senprogrammierern hat 


'schon viel Freude daran, 


endlose Bildschirm- 
POKESs auswendig zu ler- 
nen, die Speicheradressen 
des Computers besser zu 
kennen als.die eigene 
Telefonnummer ... 

Und nun gibt es da die 
3.5er-Rechner. Diese räu- 
men kräftig mit dem al- 
ten Vorurteil auf, keiner 
könnte es besser als C 64. 
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Denn was Grafik und 
Sound betrifft, braucht 
sogar der Eumel 116 

sich kaum hinter den 
Fähigkeiten des C 64 zu 
verstecken. Alles ist viel 
einfacher zu lösen. Begin- 
nend mit dem eingebau- 
ten Maschinensprache- 
monitor, endend mit dem 
(für Commodore) revolu- 
tionären Basic 3.5. 
Einziger Nachteil an die- 
ser ganzen Geschichte: 
Die Softwaremenge. 
Während es für Commo- 
dores Millionenrenner 

C 64 schon fast so viele 
Spiele gibt wie verkaufte 
Geräte vorhanden sind, 
sind C 16/116 sowie 

der Plus/4 noch im Hinter- 
treffen. 

Doch in England, wo ei- 
gentlich der Ursprung 
dieser Gerätereihe liegt, 
kann der Spiele-Freak 
schwelgen. Schwelgen im 
Softwareangebot, das 
mittlerweile fast sämtli- 
che erhältliche Spiele des 
C 64 auch auf den 


ALLES, WAS DAS 
HERZ BEGEHRT... 


„kleinen“ Commodores 
ermöglicht. Dort beispiels- 
weise ist der schon fast 
totgesagte Plus/4 abso- 
lutes Muß für jedes 
Softwarehaus. 

Ein weiteres Argument 
gegen die oft hochnäsige 
Meinung vieler 64er- 
Eigner, daß soviel Spiele 
nie für einen anderen 
Computer angeboten 
werden, ist etwas fehler- 
haft. Zweifellos ist es 
richtig, daß solch eine 
Softwaremenge kaum 
einzuholen ist. Doch 
stellt sich die Frage, 
welche 64er-Spiele, die 
unter den Besitzern 

rege getauscht werden, 
überhaupt noch relevant 
sind. Denn sehr oft sind 
unter den großspurig 
offenbarten “über hun- 
dert Spielen‘ wahre Old- 
timer, die heutzutage nur 
noch müdes Lächeln ver- 
ursachen. Geht man von 
einer wirklich vergleich- 
baren Situation aus, dem 
aktuellen Software-An- 
gebot, sieht die ganze 
Sache schon sehr viel 
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besser für die 16er aus. 
Denn mittlerweile wird 
so gut wie jedes 64er- 
Spiel, welches neu auf 
den Markt kommt oder 
noch angeboten wird, 
auch als 16er-Version ge- 
liefert. Handelt es sich 
hierbei um umfangreiche- 
re Programme, so gibt es 
immer noch die Plus-4- 
Version (z.B. Mercenary, 
Test in diesem Heft), die 
auch auf ordnungsgemäß 
erweiterten 16ern läuft. 
Stichwort Raubkopien. 
Dies stellt ja gerade unter 
Spiele-Freaks einen nicht 
zu unterschätzenden 
Kauf-Anreiz dar. Denn 

“ warum keinen 64er kau- 
fen, wo doch alle Schul- 
freunde schon einen ha- 
ben? Mit einer unüber- 
sehbaren Menge an Spie- 
len, die ja nur kopiert 

zu werden brauchen? 
Doch diese Rechnung ist 
wiederum einseitig. 
Denn die Softwareindu- 
strie versucht natürlich 
mit allen Mitteln, diese 
Kopiererei zu unterbin- 
den. Da inzwischen be- 
‚kannt ist, daß es keinen 
perfekten Kopierschutz 
gibt, versuchen die Spiele- 
Hersteller nun eine neue 
Variante: Es werden im- 
mer umfangreichere und 
komplexere Spiele ange- 
boten, die man ohne Be- 
dienungsanleitung gar 
nicht vollständig nutzen 
kann. Und wer hat nun 
für sämtliche unter der 
Hand kopierten Spiele 
auch gleich die Anleitung 
mitkopiert? 


UNGEWÖHNLICHE 
METHODEN GEGEN 
RAUBKOPIEN 


Als all zu gutes Beispiel 


hierfür seien nur die 
Spiele ““Mercenary“ oder 
“Zork“ angeführt, die 
ohne gute Anleitung noch 
nicht einmal die Hälfte 
wert sind. Zu alle dem 
bringen immer mehr Her- 
steller geradezu üppige 
Pakete heraus, die zu 
50% schon nichts mehr 
mit dem Computer zu 
tun haben. So gibt es 
vom Adventure-Riesen 
Infocom seit neuestem 
ein Spiel mit beigefüg- 


Das Spitzenmodell der 3.5er-Reihe, der Plus 4, ermöglicht 
sowohl vom Speicherplatz als auch von der Bedienung 
komfortables Arbeiten. 


tem 3D-Comic (samt 
dazugehöriger Brille, 
versteht sich), einer 
“Riech-Karte“, welche 

je nach Umgebung ange- 
kratzt wird und so das 
passende Aroma zum 
Spielstand vermittelt und 
undund... 


ARBEITEN 
MIT DEN I6ern 


So etwas läßt sich nur 
noch schwer kopieren. 
Daher sollten die Com- 
puter-Aspiranten ihr Au- 
genmerk weniger auf 

das Vorhandensein von 
kopierbarer Spiel-Soft- 
ware lenken, als die zu- 
künftige Entwicklung 
und Verwendung des Ge- 
rätes in Betracht zu 
ziehen. 

Weg von den Spielen, hin 
zur “professionellen“ An- 
wendung. Auch hier gibt 
es bereits sehr gute Ange- 
bote, um mit den 3.5ern 
auch arbeiten zu kön- 
nen. Dabei ist ganz klar, 
daß sich kaum jemand 

so ein Gerät ins Büro stel- 
len dürfte, für die häus- 
lichen Anwendungen ge- 
nügt die angebotene Soft- 
ware allemal. 
Herausragend ist hierbei 
die Modul-Software zu 
nennen, die direkt von 
Commodore sowie über 
den Fachhandel angebo- 
ten wird. Die Rede ist von 
Script/Plusund Calc/Plus, 


welche beispielsweise beim 
Ing.-Büro Stechmann für 
unter vierzig (!) Mark an- 
geboten werden. Diese 
Module genügen auch 
fortgeschrittenen Ansprü- 
chen für Textverarbei- 
tung und Kalkulation. So 
ist bei Script/Plus beispiels- 
weise ohne weiteres die 
Erzeugung deutscher Um- 
laute, von Sonderzeichen 
und -schriften sowie die 
Darstellung von bis zu 

240 Zeichen/Zeile (bei 
Bildschirm-Scrolling) mög- 
lich. Ein weiterer Vor- 

teil der Modul-Software 
liegt im Speicherplatz. 
Dieser ist ja bei den 16 K- 
Versionen besonders kost- 
bar. Wird der Speicher 


MODULSOFTWARE 
IST DIE BESSERE 
LÖSUNG 


durch ein Software- 
Textprogramm geschmä- 
lert, ist dies mit zumin- 
dest einem Nachteil ver- 
bunden: 

1. Der verbleibende Spei- 
cherplatz ist für längere 
Dokumente zu gering. 

2. Um dieses Manko we- 
nigstens halbwegs zu 
beheben, wird auf um- 
fangreichere Bedienungs- 
möglichkeiten verzichtet, 
das Programm wird also 
“abgespeckt“. 

Mit der Modulsoftware 
ist dieser Mangel beho- 
ben, denn ein Modul be- 
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nötigt keinen Speicher- 
platz, dieser bleibt für 
den Arbeitsvorgang frei. 
Weiterhin kann so auch 
größerer Bedienungs- 
komfort erreicht werden, 
die Software bleibt qua- 
litativ hochwertig. Wie 
wir schon in unserem 
Sonderheft 3/86 und ver- 
schiedenen Ausgaben 
der COMMODORE 
WELT beschrieben ha- 
ben, sind diese beiden 
“Module die beste Wahl, 
wenn es ans Arbeiten 
geht. 
Ein weiteres Gebiet er- 
schließt der in Deutsch- 
land neue Lightpen für 
-C 16/116 und Plus/4. 
Dieser erfüllt alle An- 
forderungen zur Grafik- 
erzeugung und -steue- 
rung direkt am Bild- 
schirm. So entfällt end- 
lich das von anderen Gra- 
fikprogrammen bekann- 
te lästige Umherwan- 


LIGHTPEN 
AUCH AM C 16! 


dern mit dem Joystick. 
Der Lightpen, welcher 
zur Zeit nur vom Ing.- 
Büro Stechmann ange- 
boten wird, ermöglicht 
unter anderem folgende 
Funktionen (in Verbin- 
dung mit dem dazugehö- 
rigen Grafikprogramm): 
— Freihand-Zeichnen 
mit 5 verschiedenen 
Stiftstärken 
— Pinsel-Funktion 
— Füllen beliebiger 
Shapes in 16 verschie- 
denen Farben 
— Verschiedene geome- 
trische Figuren, z.B. 
Kreise, Vierecke usw. 
— Setzfunktion für ein- 
zelne Pixels (!) 

— Druckroutine für 
Bildschirmausdruck 
und noch viele mehr. Ei- 

-nen ausführlichen Test- 
bericht dieses Produktes, 
der aus Zeitgründen in 
dieser Ausgabe leider 
nicht mehr möglich war, 
finden Sie in einer der 
nächsten COMMODORE 
WELT-Ausgaben. 

Der Lichtgriffel wird 
für 59 Mark bzw. 69 
Mark für die Kassetten- 
oder Diskettenversion 
erhältlich sein. T.S. 
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16/116/P4: DIE 


WOÖLFE IM 


SCHAFSPELZ 


Die Commodore-Rechner mit dem 3.5er Basic 
werden oft belächelt und mit Vorurteilen belegt. 
Doch der erste Schein trügt, denn wer mit diesen 

Geräten arbeiten will, merkt sehr schnell, was für ein 
Werkzeug er da in Händen hat. Zugegeben, der 
116er ist mit seiner Gummi-Tastatur und dem Hosen- 
taschen-Format nicht gerade als repräsentativ zu 
bezeichnen. Doch nichtsdestotrotz gehören die 
Computer C16, 116 und Plus/4 zum Besten, was 
Commodore je gebaut hat. 


Ein mächtiger Vorteil jagt 
bei diesen Geräten den 
anderen, alle aufzuzäh- 
len, wäre wohl etwas um- 
fangreich. Beginnen wir 
beim Preis: Dieser liegt - 
mittlerweile für alle drei 
Computer dieser Baureihe 
jenseits von gut und böse. 
Den Gummi-Eumel 116 
bekommt man fast schon 
als Werbepräsent in die 
Einkaufstüte gelegt, der 
16er geht samt Rekor- 
der für knappe hundert 
Mark über die Ladenti- 
sche und das Flaggschiff 
der 3.5er-Reihe, der 
Plus/4 kostet mit der 
Super-Floppy 1551 in- 
zwischen weniger als 

Opa C 64 alleine. Gründe 
hierfür zu suchen, dürfte 
mühsam werden. Einer 
jedenfalls ist wohl direkt 
bei Commodore selbst 

zu finden. Mit solchen 
Preistaktiken will man 

in diesem Hause offen- 
sichtlich das Käuferpubli- 
kum an die Marke mit 
dem C gewöhnen, bei 
späterem Modellwechsel 
wird der Computereigner 
sicherlich einem Rech- 
ner des gleichen Herstel- 
lers den Vorzug geben. 
Auch das Basic ist für sol- 
che Computereigner, die 
nicht nur sinnlos Raum- 
schiffe abballern wollen, 
nur mit lautem Hurra 

zu begrüßen. Denn end- 
lich wurde hier eine halb- 
wegs sinnvolle Variante 
dieser Programmierspra- 
che von Commodore offe- 
riert, wie sie andere An- 


bieter schon lange im 


- Programm haben. 


Da können dann die Be- 
sitzer der unzähligen 64er 
und 20er nur neidisch 
blinzeln, wenn beispiels- 
weise mit dem Color- 
Befehl gearbeitet wird. 
Ohne endlose Poke-Rei- 
hen, nur um die Bild- 
schirmfarbe zu ändern. 
Auch die Grafikbefehle 
des 3.5er Basic lassen 
kinderleichtes Program- 
mieren von komplexen 
Darstellungen zu. Und 
noch ein Novum wurde 
hier von Commodore an- 
geboten. Zum ersten 

Mal sollte mit dem 3.5er 


Basic ein halbwegs norm- 
gerechtes und vor allem 
kompatibles Basic Einzug 
in die C-Homecomputer 
halten. Denn, was noch 
nicht jeder weiß, Basic- 
programme des 128ers 
laufen auch, natürlich mit 
kleinen Einschränkungen, 
auf den Maschinen mit 
3.5er Basic und umge- 
kehrt. Betrachtet man 
Commodores früheres Ge- 
bahren in jener Hinsicht, 
kann dieser Vorgang ge- 
trost als ungewöhnlich be- 
zeichnet werden. So sind 
Einschränkungen nur bei 
sehr leicht überschauba- 
ren Befehlen wie denen 


zur Grafik (z.B. 80-Zei- 
chendarstellung auf dem 
128er) und Soundsteue- 
rung vorhanden, die auch 
Computeranfänger mit re- 


_ lativ geringem Aufwand 


selbst umändern können. 
Speichermäßig haben die 
Einsteigercomputer an- 
fangs weniger zu bieten. 


LÖTKOLBEN KONTRA 


SPEICHERMANGEL 


Nur der Plus/4 wartet 
von vorneherein mit 60 
freien Kilobytes auf, die 
anderen beiden Rechner 
verfügen lediglich über 
16 KB. Bis der Lötkol- 
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ben kommt. Denn wohl 
kaum ein anderer Home- 
computer läßt sich so 
leicht und vor allem so 
billig erweitern wie 116 
und 16. Eingeläutet wur- 
de diese Tatsache nicht 
zuletzt durch die 
COMMODORE WELT, 
denn unter anderem ver- 
öffentlichten wir die 
erste Umbauanleitung in 
Deutschland, nach deren 
Vorbild schon für unter 
fünfzig Mark neuer 
Speicherplatz eingebla- 
sen werden konnte. Und 
zwar satte. 60 Kilobyte, 
die dem allseits beschwo- 
renen C 64 zur reinen 


Basic-Programmierung 
nicht zur Verfügung ste- 
hen. Besonders lustig 
wird es, wenn diese 60000 
Byte in einem 116er wer- 
keln, der wohl eher ei- 
nem Taschenrechner 
denn einem Homecom- 
puter ähnelt. So sind 

dem Eigner eines erwei- 
terten l1l6ers in seinem 
Freundeskreis wohl einige 
erstaunte Blicke sicher, 
wenn die Einschaltmel- 
dung erscheint. 

Auch das Diskettenlauf- 
werk, welches für den 
Plus/4 entwickelt wurde, 
läßt eigentlich keine 
Wünsche offen. 3 — 4mal 
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so schnell wie die altbe- 
kannte Tante 1541, läuft 
die 1551 den 64er-Eig- 
nern buchstäblich davon. 
Womit Commodore end- 
lich auch selbst beweist, 
daß es schneller geht. 
Der Preis dieser Station 
läßt überdies wohl kaum 
Kritik zu, denn billiger 
sind nur noch PC-Lauf- 
werke. 

Außerdem ist diese Sta- 
tion natürlich kompatibel 
zum Diskettenformat 
der 1541. 

Besonders nützlich ist die- 
ser Geschwindigkeitsvor- 
teil, wenn es um das 
Arbeiten mit den 

l6ern und Plus/4 geht. 
So stehen beispielsweise 
zur Textverarbeitung 
endlich akzeptable Zu- 
griffsgeschwindigkeiten 
zur Verfügung. 


GELOBT SEI DER 
MONITOR! 


Ein weiterer riesiger Vor- 


teil dieser Computer ist 
der bereits implementier- 
te Maschinensprache- 
Monitor. Hier haben die 
Tüftler ein wirklich her- 
vorragendes Werkzeug 

in Händen, um gute Ideen 
auch angemessen umzu- 
setzen und nicht auf das 
im Vergleich schwächere 
Basic zurückgreifen zu 
müssen. Für diese immen- 
se Hilfe müssen Besitzer 
anderer Systeme immer 
noch zusätzlich Geld aus- 
geben, außerdem stellt 
eine Softwarelösung zur 
Maschinensprache-Pro- 
grammierung sicher nicht 
das Nonplusultra dar. 
Programmierbare Funk- 
tionstasten — damit war- 
ben Commodores Marke- 
ting-Strategen bereits für 
den VC 20. Wohlwollend 
verweigend, wie 

schwer dies zu bewerk- 
stelligen ist. Bei den 3.5er- 
Modellen nun können be- 
sagte Werbetexter wirk- 
lich auf die Programmier- 
barkeit, vor allem die 
wirklich einfache Pro- 
grammierbarkeit, hinwei- 
sen. Mit der einfachen 
“KEY“-Anweisung las- 
sen sich umfangreiche 
Funktionen auf die einzel- 
nen Tasten schreiben. So 


können unter Verwen- 
dung der Abkürzungen 

für Basic-Befehle sowie 
entsprechender chr$-Codes 
komplexe Programm- 
zeilen auf eine einzige 
Funktionstaste gelegt wer- 
den. 
Ebenso einfach ist es mög- 
lich, die wichtigsten und 
am häufigsten verwende- 
ten Basic-Befehle direkt 
auf diese Tasten zu le- 
gen. Von Haus aus ist dies 
ja bereits geschehen, 

doch mit Sicherheit stellt 
jeder Anwender andere 
Ansprüche an die Lei- 
stungsmerkmale dieser 
Arbeitshilfen. 

Unser kleiner Tip dazu: 
Versuchen Sie, welche 
Tastenbelegung Ihnen 
selbst am besten gefällt. 
Schreiben Sie sodann ein 
Mini-Programm, wel- 

ches ausschließlich die 
Funktionstastenbelegung 
enthält und speichern es 
entweder auf Kassette 


‘BUCH ZUM 
C16/116 UND 
PLUS/A 


*“ 


Obwohl die Commodore 
Computer der Reihe 16/ 
116/P4 über hervorragen- 
de Grafikmöglichkeiten 
verfügen, hält sich das 
Handbuch dieser Compu- 
ter doch bei der Beschrei- 
bung der Grafik sehr zu- 
rück. Obwohl die Grafik- 
befehle genau erklärt wer- 
den, bleiben doch viele 
Fragen offen. Diese Lücke 
deckt nun ein neues 
Buch aus dem Hause 
Data-Becker ab. Die Au- 
toren Löffelmann und 
Plenge versuchen, den 
€16/116- und Plus/4- 
Besitzern die Grafikmög- 
lichkeiten ihrer Compu- 
ter nahe zu bringen. Und 
dieses, so scheint mir, ist 
den Autoren auf ca. 

230 Seiten auch gelun- 
gen. Das Autorenteam er- 
läutert im ersten Kapitel 
alle Grafikbefehle der 
Computer ausführlich 
und mit kleinen Beispiel- 


DAS GRAFIK- Programmen und Hard- 


oder Diskette ab. Bei 
jedem Anschalten des 
Rechners kann diese Be- 
legung nun in Sekunden- 
schnelle eingeladen wer- 
den, Sie brauchen ledig- 
lich das Programm zu 
starten und danach zu 
löschen. Fortan stehen 
Ihnen die ‚persönlichen‘ 
Funktionen (bis zu ei- 
nem System-Reset) zur 
Verfügung. Ein solches 
„Programm“ könnte bei- 
spielsweise so aussehen: ° 


‘ 


10 key 1, “directory“ 
+chr$(13):key 3, “goto“: 
key 5, “load“+chr$(34) 


Diesen Einzeiler müssen 
Sie nur mit RUN starten, 
danach mit NEW einfach 
löschen. 

Auch die Möglichkeiten 
der Gerätesteuerung mit 


den kleinen Geräten sind 


unglaublich. Wie Sie an _ 
anderer Stelle dieses 
Heftes nachlesen können, 


copys ergänzt, so daß 
ein Nachschlagen im 


Handbuch beim Program- 
mieren unterbleiben kann. 


Das zweite Kapitel be- 
schäftigt sich mit den 


Grundlagen der Grafikpro- 


grammierung. 

Auch hier wird eine aus- 
reichende Grundlagenbe- 
schreibung gegeben, die 
sich in diversen Formeln 
und Diagrammen nieder- 
schlägt, die z.B. auch er- 
läutern, warum eine 
schräge Linie auf dem 
Bildschirm nun mal wie 
eine Treppe aussieht. 
Das 3. Kapitel ist mit 
der Überschrift „Anwen- 
dungen der Grafikpro- 
grammierung‘“ über- 
schrieben und erläutert 
die Programmierung ver- 
schiedener Programme 
anhand von Modulen 
mit ausreichender und 
genauer Erläuterung der 
einzelnen Funktionen. 
Es gipfelt in einigen Pro- 
grammen, z.B. einem 
CAD-Programm, das es 
ermöglicht, Zeichnungen 
aller Art auf den Bild- 
schirm zu zaubern. Auch 
die Freunde der Statistik 
kommen nicht zu kurz, 
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sind selbst die umfang- 
reichsten Steuerungen 
(bei geschickter Program- 
mierung) kein Problem. 
Ein Redaktionsmitglied 
benützt seinen privaten 
Plus/4 zum Beispiel zur 
Kamera-Steuerung. Hier- 
für bringt gerade der 
Plus/4 mit seinem heraus- 
geführten Userport die 
besten Voraussetzungen 
mit. 

Alles in allem bleibt also 
die Genugtuung, mit ei- 
nem Rechner der 3.5er- 
Reihe ein wirklich sinn- 
volles Gerät erworben 

zu haben. Für wenig Geld 
erhält der Käufer eine 
Maschine, mit der es sich 
wirklich arbeiten läßt. 
Allen Unkenrufen zum 
Trotz, laut denen diese 
Computer ja bereits tot 
geboren und gar nicht 
marktfähig seien, bewei- 
sen sie jeden Tag aufs 
neue, was in ihnen 
steckt. TS: 


denn auch für sie gibt 
es Balken- und Torten- 
diagramme. 

Das nächste Kapitel be- 
schäftigt sich mit den 
Möglichkeiten einer 
Hardcopy, der Grafiken 
auf verschiedenen Druk- 
kern, sowie dem Spei- 
chern und Laden der 
Grafiken auf Diskette 
und Kassette. 

Der Anhang enthält eini- 
ge nützliche Programme, 
wie Shapeeditor, Data- 
wandler sowie eine An- 
zahl nützlicher Tips und 
Hinweise,die man im- 
mer wieder einmal be- 
nötigt. Auch eine Ta- 
belle, die sämtliche Zei- 
chen und Steuercodes 
mit ausführlicher Be- 
schreibung enthält, fin- 
det man hier. 

Alles in allem eine 
Pflichtlektüre für den 
angehenden Grafikpro- 
grammierer, der seinen 
Computer voll ausnut- 
zen will. 

Info: 

Löffelmann / Plenge 
Das Grafikbuch zu 
C16/116 und Plus 4 

ca. 240 Seiten 29,— DM 
ISBN 3-8901 1-205-6 
Data-Becker-Verlag 
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TE LÖSUNG 


Aufruf zum großen Kreativ-Wettbewerb für alle 
C16/116- und Plus4-Besitzer. 


Die C16/116-Besitzer scheinen besonders kreativ zu 
sein. Dies zeigt sich unter anderem bei unserem Post- 
eingang. ich 

Zeitweise überflügeln die C16-Programme sogar die 
von C64 und VC20O zusammen. Nun wollen wir die 
Kreativität unserer Leser einmal auf die Probe stel- 
len und einen Wettbewerb starten, bei dem auch Com- 
puterneulinge eine reelle Chance haben. 

Diesmal geht es einmal nicht um perfekte Kenntnisse 
im Umgang mit Basic oder Maschinensprache, son- 
dern einzig und allein um gute Einfälle. Witz und 
Originalität sind gefragt. Ihre Aufgabe besteht darin, 
zu unterhalten. Mit dem von uns entwickelten 
Programm “DAUMENKINO“ sollen Sie einen klei- 
nen Trickfilm, ein Kaleidoskop basteln oder es auf 
irgendeine andere Weise nutzen. Bevor wir näher dar- 
auf eingehen, soll das Programm zunächst einmal er- 
klärt werden: 

Sie kennen doch sicher diese kleinen Heftchen mit 
Trickfiguren, die man durch schnelles’Schnappen- 
lassen mit dem Daumen wie einen Minitrickfilm zum 
Leben erwecken kann. Genau das gleiche macht 
DAUMENKINO. Man kann Bilder mit dem einge- 
bauten oder einem eigenen Zeichensatz erstellen 
und dann mit TRICK mit wählbarer Verzögerung 
nacheinander einblenden. Das Maschinenprogramm, 
das die Speicherplatzverschiebungen vornimmt, ist 
dabei so schnell, daß es bis zu 40 Bilder/Sekunde 
darstellen kann. Ist das letzte Bild erreicht, beginnt 
es von vorne. Am besten wählt man am Anfang eine 
Verzögerung von 100, um die Bilderfolge kontrol- 
lieren zu können. In Zeile 100 wird das Basic-Ende 
bis kurz vor das Speicherende angehoben, damit die 
Bilder hinter dem Programm abgelegt werden kön- 
nen. Hat man kein Bild gezeichnet und das Pro- 
gramm gestoppt, so kann man mit f4 das ursprüng- 
liche Basic-Ende wiederherstellen. 

Zeile 140 errechnet die maximale Anzahl von Bil- 
dern. Mit 16 KByte sind es 10, mit 64KByte sogar 
54. Bei verändertem Zeichensatz je 1 Bild weniger. 
Das Maschinenprogramm erwartet sowohl beim Ab- 
legen als auch beim Zurückkopieren des Bildschirm- 
speichers die Bildadresse in 216/217 und erhöht sie 
dabei immer um 1 KByte, so daß mehrmaliges Auf- 
rufen von SYS 1662 immer das nächstfolgende Bild 
holt. Wenn Sie dies alles nicht verstehen, so machen 
Sie sich nichts draus, das Programm macht das schon 
richtig. Für Computerneulinge ein Tip: Immer vor 
dem Testen abspeichern, da das Programm ja viel im 
Speicher verschiebt, kann ein Tippfehler für das Pro- 
gramm tödlich sein. 


Hier nun eine einfache Gebrauchsanweisung: 


Nach dem Starten gelangen Sie ins Menü. Bevor Sie an- 
fangen, eine wettbewerbsfähige Bilderfolge unter 
Punkt 1 einzugeben, testen Sie erst einmal alle Funk- 
tionen. Menüpunkt 1: Es wird nach der Bildnummer 
gefragt, mit der man anfangen will. Dann wird dieses 
Bild in den Bildspeicher kopiert. 

Erschrecken Sie also nicht, wenn Sie beim erstenmal 
einen wirren Zeichensalat zu sehen kriegen. Oben 
links finden Sie “F C M“. Mit M gelangt man immer 
ins Menü, mit C wird das vorhergehende Bild (mit 
einer Nummer niedriger) kopiert, damit man bei ei- 
ner Bilderfolge daran anknüpfen kann. F bietet einen 
besonderen Vorteil: Hier wird der ganze Bildschirm 


in eine einzige superlange Zeile verwandelt. Dies hat 2 
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folgenden Vorteil: Sie können das ganze Bild durch 
Einfügen oder Löschen eines Zeichens links oben 
verschieben. Dies ist wichtig, wenn Sie Bewegung ins 
Bild bringen wollen. Und es passiert nicht, daß der 
untere Teil bei Erreichen des rechten Rands nach 
unten verschoben wird. Aber Vorsicht! Natürlich 
wird mit ESC&Q auch die ganze Superzeile gelöscht. 
Verwenden Sie die ESCAPE-Eunktionen ausgiebig 
(Handbuch S. 63). Man kann sich viel Arbeit erspa- 
ren. 

Zum Beispiel ist es unerläßlich, den Scrollmodus mit 
ESC&M auszuschalten, wenn man links unten ein 
Zeichen setzen will. Drückt man die Leertaste, kann 
man schreiben bzw. mit dem Zeichensatz Bilder er- 
stellen. Der Bildschirmrand verändert sich und der 
Cursor blinkt. Sie können alle Steuertasten verwen- 
den. Am Ende drückt man RETURN und das Bild 
wird abgespeichert. Oben erscheint “W M“ für 
‘weiter‘ bzw. Menü‘. t 
Menüpunkt 2: Hier können Sie sich die bereits er- 
stellten Bilder ansehen. Mit “W‘ geht es weiter, mit 


d) Man kann damit auch leicht Texte und Grafiken 
in eigene Programme einblenden. Zum Beispiel ver- 
scheidene Level eines Spiels. Dazu muß man zuerst 
das Grundgerüst haben und wissen, wie lange es ist. 
Bei DAUMENKINO beginnt bei 24x256=6 KByte 
das erste Bild. Pro Bild wird 1 KByte gebraucht. 
Das 2. Bild beginnt bei 28x256... Durch PRINT 
PEEK(46) erfahren Sie, wie lang Ihr Programm ist. 
Steht dort zum Beispiel 30, so kann das erste 

Bild erst ab 32x256 beginnen. Jetzt zeichnen Sie 
mit DAUMENKINO Ihre Bilder eben erst begin- 
nend mit Nummer 3. Verbinden kann man die bei- 
den Programme dann, indem man zuerst 
DAUMENKINO mit Bildern lädt, sich die Werte 
aus 45 und 46 notiert, dann das Spiel einlädt und 
die notierten Werte in 45/46 POKEt. Dann kann 
man beides zusammen abspeichern. Oder man spei- 
chert die Bilder mit dem Monitor ab. 


Wettbewerbsbedingungen: 


Geben Sie das Programm ein (oder bestellen es sich 
im Kassettenservice) und üben Sie die Funktionen ein. 
Dann sollte die zündende Idee eigentlich langsam kom- 


hinter das letzte von Ihnen gewählte Bild gesetzt wird. 


Danach kann man das Programm normal abspeichern 
und wieder laden. Die Bilder bleiben erhalten. 
Menüpunkt 4: Hier werden alle Bilder von 1 bis max. 
in schneller Folge solange gezeigt, bis Sie mit der 
STOP-Taste ins Menü zurückspringen. . 


Eigener Zeichensatz: 


Wie es der Zufall so will, können wir Ihnen in diesem 


Heft auch noch ein Programm anbieten, mit dem man 
auf komfortable Weise den Zeichensatz ändern und 
ferner sogar je 9 Zeichen als Pseudosprite zu einer 
Gruppe zusammenfassen kann. Den fertigen Zeichen- 
satz können Sie dann mit AUTODATA aus der letz- 
ten Ausgabe der COMMODORE WELT in DATA- 
Zeilen ablegen oder mit dem MONITOR abspeichern. 
(S“ZEICHENSATZ“,1,3800,3C00 bei 12 K und 
Kassette). 


Weitere Anwendungen des Programms: 

a) Briefe schreiben und als Programm an andere 
C16-Besitzer schicken. 

b) Anlegen einer Wissenskartei. 

c) Mit Menüpunkt 3 im Speicher blättern, um zu 
sehen, was dort von anderen Programmen noch 
steht. 


kommen Ihre Sache. Sie können einen Trickfilm ma- 
chen oder auch nur einzelne schöne Bilder herstellen. 
Auch eine lustige (selbsterdachte!!!) Geschichte kann 
interessant sein. Nach welchen Kriterien ausgewertet 
wird, ist uns selbst noch nicht klar, dazu wollen wir 
erst einmal abwarten, was kommt. 

Auch die Preise stehen noch nicht ganz fest. Sicher ist 
jedoch, daß der Gewinner einen Tausend-Mark-Schein 
erhält. Ferner werden die besten Beiträge gesammelt 
und im Kassettenservice angeboten. Das kann noch 
zusätzlich Geld einbringen. 

Einsendeschluß: Damit Sie trotz Weihnachtstrubel 
noch genug Zeit haben, haben wir den Annahme- 
schluß auf Ende Februar (28.2.) festgesetzt. 

Da die Besitzer einer 64 KByte-Erweiterung natürlich 
mehr Möglichkeiten haben, wird es zwei Kategorien 
geben, die 12- und die 64K-Gruppe. Wer über den gro- 
ßen Speicher verfügt, kann natürlich zusätzlich einen 
Beitrag für 12 K einreichen. 

Tragen Sie bitte in Zeile 50 Ihren Namen ein, damit 
es zu keinen Verwechslungen kommen kann. 
Schicken Sie das Programm an: 

CBM-REVUE-TEAM 

Wettbewerb C16 

Postfach 1107 

8044 Lohhof 


| 16 a | 


Wettbewerb 


18 rem = daumenkino ========-=====16 
28 rem (p) cbm revue team == 
38 rem ====--=-===-==-=-=== === 
48 rem (c) by cbm revue team Me 
58 rem + KRXKXKKKKKKXXX — 
68 rem c16/116/plus A 
78 rem === >= >> === = > ==smmn Po SEN mE 


88 poke216,8:poke218,9:gosubS18 

98 key4,"p045,"+str$(peek(45))+":pO 
46 ,"+str$( peek(46)) +chr$( 13) 

188 poke45,peek(55) :poke47,peek(55) 
:poke49,peek(55) :poke46, peek( 56) -4: 
poke48,peek( 56) -4:poke5Bß, peek(56) -4 


118 c1$=chr$( 147) :ho$=chr$( 19) 
128 rv$=chr$( 818) :ro$=chr$( 146) 
138 eo$=chr$( 27) +"o"” 

148 max=int((peek(56) -24)/4) 

158 printc1l$:char,5,5,"menue”:trap4 
98 

168 char,5,7,"bilder beschreiben 
Vai 

178 char,5,9,"bilder ansehen 

>" 

188 char,5,11,"”"programm beenden 
3” 

198 char,5,13,"trick 

4 


288 char,5,17,"maximale bilderzahl: 


"+str$( max) 

218 getkeym$:m=val(m$) :onm+1goto158 
‚230,330,378,478:gotoa158 S 
228 rem #*# bilder malen #FH#trrrtrr:x 
238 printc1l$; :input"”startnummer"”;an 

$:an=val(l an$) :ifan<1ithen238 

248 trap299:color4,2,4:gosub448:pri 
ntho$rv$"f c m "an:getkeya$ 

258 ifa$="f"thenprintho$; :fori=1to1 
888:printchr$( 160) ; :next:goto248 
268 ifa$="c"then an=an-1:gosub44B:a 
n=an+1:gosub418 

278 ifa$="m"then158:elsegosub448 
288 color4,2,3:open1,8:input#1,q$ 
298 close1:gosub418:color4,2,7:prin 
teo$ho$rv$"w m ":getkeya$:gosub448 
388 ifa$="w"thenan=sant+ti:else ifa$=-" 

m"”g0oto158 

318 goto248 

328 rem **# bilder zeigen #FR#FFFt#rnH 
338 printcl1$; :input”startnummer";an 
$:an=val(an$) :if an<1i then33® 

348 gosub448:getkeyq$:ifgq$="w"thena 
n=an+1:goto348 

358 goto158 

368 rem * bilder in prg einbinden *# 
378 printcl$; :input”anzahl der bild 
er ";hn$:hn=val(hn$) :printcel$"bitte 
f1 druecken" 

388 b$=str$( 24+hn#4) 


398 key1i1,"p045,8:p046, "+b$+chr$( 13) 
:end 
AB8 
418 
428 
438 


rem #*#### bild abspeichern ##*# 
if an<i or an>mat; then return 
poke217,24+an#4:sys1638:return 
rem ##*** bild zeigen #*##* 

448 if an<i then return 

A458 poke217,24+an*#4:sys1662:an=anta 
n*=( an>max) :return 

A658 rem ##### trick Hrreserere 


478 printcl$; :input"verzoegerung";v 
$:v=-val[v$) :trap158 

488 poke217,24:fori=1tomax:sys1662: 
fort=®tov:next:next:goto4808 

498 help:end 


DER 
ERSTE 
PREIS: 

1000 

DM BAR! 


588 rem #*#*# maschinenprg *F##* 

518 fori=1638t01692:reada:pokei,a:s 
=s+ta:next:ifs=96B8thenprint"ok":els 
eprint"fehler in datas"”:end 

5282 return 


538 data169,8,133,218,169,12,133,21 
9,162,4,1690,8,177,218,145,216 

548 data280,192,0,208,247,238,217,2 
30,219,202,224,0,208,236,96,® 

558 data169,8,133,218,169,12,133,21 
9,162,4,160,9,177,216,145,218 

568 data290,192,0,208,247,230,217,2 
38,219,202,224,0,208,236,96 
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Einige Besonderheiten des Programms sind: 

— Eingabe mit Kontrollmöglichkeit 

— wählbare Kopienzahl 

— automatischer Blattvorschub 

— Geldbeträge, Warenbezeichnung, Mengenbezeich- 
nung usw. werden bündig untereinander geschrie- 
ben. 

— wählbare Zahlungsform, mit entsprechendem 
Text 

— bei Zahlungsform Rechnung, automatische 
Skontoberechnung 

— auf Wunsch 4 Zeilen für Anmerkungen 

— fester Absender, Bankverbindungen usw. im 
Listing. 


Programmbeschreibung: 


Nach dem Starten des Programms, mit ‘RUN‘, er- 
scheint das Titelbild. 

Nach dem Druck einer Taste müssen Sie die Mehr- 
wertsteuer und das Tagesdatum eingeben. Diese bei- 
den Eingaben bleiben solange im Speicher, bis das 
Programm abgebrochen wird. 

Falls in Ihren Preisen die Mehrwertsteuer schon ent- 
halten ist, geben Sie eine ‘0° ein. 

Jetzt beginnt das Schreiben der ersten Rechnung. 
Beantworten Sie jetzt die Fragen, die das Programm 
Ihnen stellt. ä 
Beachten Sie aber, daß Sie kein Komma oder keinen 
Doppelpunkt benutzen! 2 h 
Geben Sie bei den Artikeln immer die Einzahl ein, 


z.B. C 16 Computer(Return), 3(Return), 120(Return). 


Der Computer weiß dann, daß Sie 3 C16 Computer 
a 120 DM meinen, und setzt-360 DM als Gesamtbe- 
trag ein. 

Bei den Zahlungsarten können Sie zwischen Barzah- 
lung, Rechnung und Nachnahme auswählen. Der 
Computer druckt dann einen entsprechenden Text 


aus. 

Bei der Zahlungsart Rechnung wird außerdem 
Skonto automatisch berechnet und eingetragen. 

Bei der Frage, ob Sie Anmerkungen machen möch- 
ten, können Sie zwischen 4 Zeilen Text wählen 

oder mit dem Programm fortfahren. 

Möchten Sie Anmerkungen machen, können Sie 4 
Zeilen bis zu jeweils 2. Zeile unter ein Sternchen 
schreiben. Hierbei müssen Sie aber wieder darauf ach- 
ten, daß Sie keine Kommata und Doppelpunkte ver- 
wenden. 

Danach kommt man wieder in einen Auswahlmodus, 
in dem man zwischen Kontrolle und Druck wählen 
kann. In der Kontrolle durchläuft das Programm 
nochmals alle Abfragen, ohne aber den schon einge- 
gebenen Text zu löschen. In diesem Modus kann 
man Ändern, Löschen, und Einfügen. 

Entscheidend zum Löschen und Einfügen sind die 
Abfragen ‘weiter Artikel‘. Bei ‘j‘ für ja kann man ei- 
nen Artikel anfügen, bei ‘n‘ für nein löschen. Das- 
selbe ist mit den Anmerkungen möglich. 

Kommen Sie dann wieder zu der Abfrage ‘Kontrolle‘ 
oder ‘Druck‘, und Sie wählen Druck, werden Sie 
nach der gewünschten Kopienanzahl gefragt. 

Bevor Sie diese beantworten, vergewissern Sie sich, 
ob der Drucker angeschaltet ist. und das Papier 


richtig justiert ist. Wenn ja, geben Sie die Kopien- 
anzahl ein. Nun erfolgt der Druck... 

Nach dem Druck erfolgt ein automatischer Blattvor- 
schub, wobei das Blatt automatisch neu justiert 
wird. Wurde eine Kopie gewünscht, erfolgt nun die 
Erstellung einer Kopie. 

Nach der Beendigung des Drucks können Sie das 
Blatt durch Drücken der Taste ‘j‘ zum Abriß heraus- 
schieben lassen. Dabei wird das nächste Blatt wieder 
Justiert. 

Mit der Taste ‘e‘ gelangen Sie dann in einen weiteren 
Abfragemodus. 

Hier können Sie dann entscheiden, ob Sie weitere 
Rechnungen schreiben wollen, und ob die letzten Ein- 
gaben gelöscht werden sollen oder nicht. 

Werden die Fragen mit nein beantwortet, verabschie- 
det sich das Programm. Andernfalls beginnt es mit 
der Eingabe von vorne. 


Tips zur Programmeingabe 


Das Listing wurde nach der Fertigstellung, durch 
‘renumber‘, auf Vordermann gebracht. Man kann also 
am Anfang ‘Auto 10° eingeben. 

In die Zeilen 540, 880, 900, 920, 930 und 1530 müs- 
sen eigene Angaben programmiert werden. 

Alle Rems können weggelassen werden, da sich die 
Goto-Anweisungen nicht auf die Rems beziehen. 


Steuercodes des Druckers 


Zum Druck benutze ich einen MPS 801-kompatiblen 
Drucker. Wer einen anderen Drucker besitzt, kann 
hiermit Änderungen vornehmen. 


chr$(10) = Zeilenvorschub 
chr$(14) = doppelte Zeichenbreite 
chr$(15) = Standardzeichen 
chr$(16) = Text einrücken 
chr$(17) = Groß/Kleinbuchstaben 
chr$(18) = Negativdruck 


Variablenbelegung 
Die wichtigsten Variablen sind: 


t = Mehrwertsteuer 
d$ = Rechnungsdatum 
n$ = Empfängername 
s$ = Straße und Nr. 
08 = PLZ und Ort 

nı$ = Rechnungsdatum i 
iz$ = Ihre Zeichen 

in$ = Ihre Nachricht 
uz$ = unsere Zeichen 
un$ = unsere Nachricht 
v = Artikelmenge 

b:, = Blattvorschub 
an$ = Artikel/Leistung 
m = Menge 

p > Einzelpreis 

j5 = weitere Artikel 
vp = Verpackungskosten 
pl = Versandkosten 
za = Zahlungsart 

a$ = Anmerkungswahl 
w$ = Auswahl allg. 


ak = Kopienanzahl 
al$-a4$ = Anmerkungen 


18 


Rechnung 


18 rem rechnung ==========-=======16 
28 rem (p) 12/86 commodore welt == 
38 rem =====-=---===- === == ======= === 
48 rem (c) 11/86 by a. liebeck == 
58 rem == 
68 rem -— 
78 rem basic v3.5 -- 
BB rem c16/116 plus 4 = 


zu u us mzmummzmm mom m zmoozozoumm 


98 rem 


188 scenclr:print chr$( 14) 
118 print rer 


SECHEHERRERREHRN" 


20 DEINES: a a ae a a are a ae 
BE nn a" ' 

138: print ®....... RECHNUNGE.. 
EA ee 3er 

148 print"#...... .=============22>> 
Sszamme, .,.... a" 

ISB: DTINE %.. .:2 2:0 zu aus an ars a a un 
TEEN a" 

1698 print"*....... fuer C16 / Ci16 / 
plus Aoa.a0s- e- 

770 print” une mit Floppy oder 
Tape: zu8:=4=2: a" 

188 print"”*..auf Commodore kompatib 
len Druckern..*"” 

190. DEINES R er ee A ern a na a nat a ie 
„m. m 2 nn nm nen nn nn. a" 

288 print"”*...Copyright 1986 by..Ac 

him Liebeck...*" 

SID, DIINETF 2.230, star asnensaigr en 
DE ak a" 

228 print "#eanuueoeeeenenneeeeeeenen 

KESHHECHEREEEN" 

238 print 

248 Brink". Schalten Sie Ihren D 


rucker ein 
PSO PITINE? Se un en ee Papier justie 
ren !":print 

268 Print” 2.0 ru Druecken Sie ein 
e Taste !" 

2708 getkey a$ 

288 scnelr 

298 print"Kurzanleitung !":print 
388 print"Die Fuehrung durch das Pr 
ogramm erfolgt ueber Abfrageroutine 
n.":print 

31@ print"Beantworten Sie die <j/n> 
-Fragen mit j..fuer ja oder n fuer 
nein." 

328 print 

338 print"Alle anderen Fragen sind 


mit dem von....Ihnen gewuenschten T 
ext oder" 
348 print"mit den von Ihnen gewuens 


chten Zahlen...zu beantworten." 
358 print 


368 print"Programmbeginn":print"=== 


378 print:vol7:sound1,98®, 18 


388 a a a aan "tn 
rint 
398 input” Aechnungedii. ".d$: 


print 

488 dim an$( 188) :dim m( 188) :dim p( 1 
88) :dim j$( 180) 

418 iz$="":in$="":un$="":ak=B:vp=B: 
pi=0:za=98:a$="":an$="" 

428 s=8:nr$="":wr$="":an$="":m=8:p= 
8 

438 x=B:kz=8:n$="":s$="" 
"".a2$="":a3$=-"":a4$="" 
448 za=d:ge=8: j$="" 

458 b=9@:v=-8B:wa=@:scencelr 
468 printtab( 22) ;n$;chr$(27)+"3j";:i 


:0$="":a1$= 


nput"Empfaengername....: ";n$:print 
:print 

478 printtab( 22) ;s$; chr$( 27347 N 
nput"Strasse u. Nr.....: ";s$:print 
print 


488 rinttab(22); 0o$;chr$( 27)+"3j";:i 
nput”PLZ u. Ort....=-.-- : ";o$:print 
:print 

498 printtabl( 22) ;nr$;chr$( 27)+"3j";: 
input"Rechnungsnummer...: ";nr$:pri 
nt:print 

588 printtab( 22) ;iz$;chr$( 27) +"j";: 
input"Ihre Zeichen...... : .";i1z$:pri 
nt:print 

518 printtab( 22) ;in$;chr$( 27)+"3j";: 
input"Ihre Nachricht....: ";in$:pri 
nt:print 

528 printtab( 22) ;uz$;chr$( 27)+"j";: 
input”"unsere Zeichen....: ";uz$:pri 
nt:print 

538 printtab( 22) ;un$;chr$(27)+"3j";: 
input”"unsere Nachricht..: ";un$:pri 


t:print 
548 bz$="Ihre Zeichen u...Nachricht 
‚„..unsere Zeichen u...Nachricht.... 
.Musterstadt" 
Ss5@ 19$="Artikelname od. Leistung.. 
.Einheiten...Preis/Einheit..GesamtP 
reis/DM" 
5608 L1$8= en eer ee nr 
SI ISSN nee nee ah een De 
5BO 1ASET ae a a er a im 
598 scnclr 
688 v=v+1:b=b+1 

618 printtab( 21) ;an$[l v) ;chr$( 27) +"J » 


Rechnung 


"- :input"Artikel/Leistung..:";an$(v 
) :print 

628 printtab( 28) ;m[v) ;chr$(27) +73"; 
:input"Menge.....--.- --z-.2 "-m[v):pr 
int 

638 printtab( 28) ;pLv) ;chr$( 27) +73"; 
:input"” Einzelpreis: a ee "-p{v):pr 
int 


648 printtab( 26) ; 3$( v) ;chr$( 27) +" 5" 
;:input"Weitere Artikel <j/n> : sg 
${v) :print 

658 if j$lv)="j" then 688 

668 printtab( 25) ;vp;chr${ 27) +" 3” 
nput“ Verpackungskosten ERICH "3 
rint 

678 printtab( 25) ;p1;chr$(27)+"j"; 


set 
vp:p 


nput"Versandkosten (Porto) : "sint:p 

rint 

688 print"Zahlungsart: Barverkauf = 
1° 

690 print"”..:.... 0.200 Rechnung...= 
5 Je 

7909 BEINE”. .um ar nen Nachnahme. .= 
3" 

718 printtab( 25) ;za;chr$( 27)+"j";:i 

nput"Zahlungsart...1 bis 3..:";za:p 

rint 


728 printtab( 26) ;a$;chr$( 27)+"3j";:i 
nput"Anmerkungen..< j / n > :";a$:p 
rint 

738 if a$="" then 888 

748 if a$="n" then 888 

758 print"Achtung: max. je Zeile (4 
} bis unter das Sternchen schreiben 


ı a" 

768 print:printtab( 2) ;a1$;chr$( 27) + 
"7"; input 'al$ 

778 printtab( 2) ;a2$;chr$[27)+"3j";:i 
nput a2$ 

788 printtab( 2) ;a3$;chr$( 27)+"3";:i 
nput a3$ 

798 printtab( 2) ;a4$;chr$( 27)+"3j";:i 
nput a4$ 


888 print:print: Erinr* AKüontrolle o 
der AAüusdruck ?" 

818 getkey w$:if w$="k" then 458 
828 if w$="a"then838:elseB1® 

838 input"Anzahl der Kopien...... - 
‚ak:print 

848 rem rechnungsausdruck 

858 open 1,4,7 

868 s=B:v=b 

878 rem firmenname oder familienna 
me hier eintragen 

888 print#1, chr$( 14)"”...Manfred Mus 


898 rem anschrift hier eintragen 
988 print#1,chr$( 15)"...-.- 5555 Mus 


Musterstrasse 2 
bankverbindung hier eintra 


terstadt, 

918 rem 

gen 

928 printf#1,chr$( 16) "86Bankkonto: K 

reissparkasse Musterstadt(BLZ 888 8 

B8 99)"; 

938 print#1," Nr. 800 Bau" 

948 print#1:print#1:print#1:printf#1 
:print#1:print#1 

958 print#1,chr$( 16) "86Firma/Herrn/ 

Frau" 

968 printf#1,chr$( 16) 85n$:print#1,ch 

r$( 16) 85s$:print#1:print#1,chr$( 16) 

850$ 

978 print#1:print#1:print#1:print#1 
:print#t:print#1,chr$( 16) 85bz$ 

988 t1=16:tx$=iz$:gosub 1998 

998 t1=11:tx$=in$:gosub 1988 

1888 t1=18:tx$=uz$:gosub 1988 

1818 t1=13:tx$=un$:gosub 1988 

1828 t1=11:tx$=d$ :gosub 1988 

1838 print#1:print#1:printf#1 

1848 printf#1,chr$( 14)"...Rechnung” 
19858 printf1 

1868 print#1,chr$( 15)".----- Rechnun 

gsnummer: ";nr$ 

1878 print#1,chr$( 16) "86Rechnungsda 

tum : ";d$:printf1 

1888 print#1,chr$( 16) "86Wir liefert 

en Ihnen:":printf#1 

1898 print#1,chr$( 16) 8519$ 

1188 print#1,chr$( 16) 8511$ 

11198 t1=26:vk=6:nk=2:u$="13.2" 
1128 for n=1 to b 

1138 tx$=an$(n) :gosub 1998 

1148 zx=m{n) :gosub1928 

1158 ux=p({n) :gosub 1978 

1168 g=m(n)*p(n) 

1178 ux=g:gosub 1978 

1188 s=s+tg 

1198 print#1, 

1298 next n 

1218 print#1,chr$( 16) 8511$ 

1228 t1=30:u$="35.2" 

1238 tx$="Summe ‚Nettowarenwert:" 
sub 1988 

1248 ux=s:gosub 1978 

1258 print#1, 

1268 tx$="Verpackungskosten:" 
1998 

1278 ux=vp:gosub 1978 

1288 print#1, 

1298 gp=stvp 

1388 tx$="Gesamtpreis exkl. 
:gosub 1988 

1318 ux=gp:gosub 1978 

1328 print#1, 

1338 ta=t/188:mw=gp*ta 


:go 


:gosub 


Mwst.:"” 
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Rechnung 


1348 tx$="+gesetzliche Mwst.:":gosu 

b 1988 

1358 ux=mw:gosub 1978 

1368 print#1, 

1378 tx$="Versandkosten (Porto, 

cht) :":gosub 1988 

1388 ux=p1:gosub 1978 

1398 print#1, 

1488 print#1,chr$( 16) 8513$ 
1418 ge=-gp+tmw+p 1 

1428 tx$="Gesamtbetrag/DM: 
osub 1988 

1438 ux=ge:gosub 1978 

1448 printf#i, 

1458 print#1,chr$( 16) 8514$ 
1468 print#1:printf#1 

1478 sk=( gp+mw) #9.02:so=-int( sk*18B+ 

8.85) /108 
1488 if za-=-8 
1498 if za=1 
1508 if za=-2 then 1548 

1518 if za=3 then 1568 

1528 print#1,chr$( 16) "86Betrag erha 
lten.":print#1 

1538 print#1,chr$( 16) "86Musterstadt 
‚„ den ";d$:v=v+3:goto 1578 

1548 print#1,chr$( 16) "86Zahlbar inn 

erhalb 38 Tagen, netto, oder innerh 

alb von 18 Tagen” 

1558 print#1,chr$( 16) "O6mit 2% Skon 

toabzug (";so;"DM) .":v=v+2:goto 157 

14) 

1568 printf#1,chr$( 16) "86Betrag durc 

h Nachnahme erhalten.":v=v+1:goto 1 

578 

1578 if a$="n" or a$="" then 2128 
1588 print#1:print#1,chr$( 16) 25a1$: 

print#1,chr$( 16) 85a2$:print#1,chr$( 
16) 8533$ 

1598 print#1,chr$( 16) 8534$ 

1688 print#1,chr$( 18) 

1618 if ak>@ then 1638 

1628 if ak=8 then 1698 

1638 c=B:if c=ak then 1698 

1640 ak=-ak-1:gp=d 

1658 for a=8to21-v:print#1:next 
1668 goto B68 

1678 rem 

1688 rem blattvorschub 

1698 rem 

1788 fora=®to21-v:print#1:next 

1718 print"”..Papier kann durch ’j’ 

zum Abriss vor-...geschoben und neu 
justiert werden !!" 

1728: print: print". .--.-.-.-=- Dann 
druecken." 
1738 getkey w$ 
1748 if w$="5j" 


Fra 


“u 
>2>>23>27,28 


1588 
1528 


then 
then 


then 1758:else 1888 


1758 

1768 

1778 

1788 

1798 rem 

1888 input"Weitere Rechnungen <j/n> 
:";wr$:print 

1818 if wr$="j" then close 1:else1iB8 

58 

1828 print:input"Daten loeschen <j/ 

n> :";wr$:print 

1838 if wr$="j" then 1848:e1se459 

1848 forl=-dtov:an${ 1)="":m{l1)=®:pl1 

)=9: j$L1)="":next:goto41B 

1858 close 1,4,7 

1868 end 

1878 rem 

1888 rem textpositionierung 

1898 rem 

1988 tx=len( tx$) :print#1,chr$( 16) 85 

tx$;tab( tl-tx);:return 

1918 rem 2 

1928 zx=int( zx*1988+8.5) /100:zx$=str 

$(zx) 

1938 zi=len( zx$) :zu=®:for zn=1 to z 

1:if mid$( zx$,zn,1)="." then goto 1 

958 

1948 zu=zu+i:next zn 

1958 print#1,tab( vk-zu) ;zx;tab( (nk+ 

vk)-(vk-zu+zl)+i); :return 

1960 rem 

uv$=right$( u$, 1) :ul=int( vallu$ 


for p=-® to 71:print#1:next 
goto 1738 

rem 

rem artikelloeschüng 


if uv$<>"." then ur=vall(uv$):g 
oto 2988 

1998 ua$=-str$( sgn( ux) *intlabs(ux))) 
+" ".ub$="":ul=ul+1:goto 2898 

2888 ul=int(val(u$)) 

2818 ux$=str$( sgn( ux) *#(int(abs( ux)* 
18’ur+B8.5))/18°ur) 

2828 uv=®:for un=1 to len(ux$):if m 
id$( ux$,un,1)="." then uv=un 

2838 next un 

2848 if uv=8 then uv=un:ux$=ux$+"." 
2958 if uv<>2 then 2978 

2868 ux$=left$( ux$, 1)+"8"+right$l ux 
$,len{ ux$)-1) :ul=ul-1:ur=ur#] 

2878 ub$=mid$( ux$,„uv,len( ux$)+1)+"® 
BBHHBAHHRH“" 

2888 ub$=left$( ub$,ur+1) :ua$=left$( 
ux$,uv-1) E 

2898 if len(ua$)>ul then print"Usin 
gbereich zu klein"”:stop 

2188 .if lenlua$)<ul then ua$=" "+ua 
$:goto 2198 

21198 print#1,(ua$+ub$); :return 

2120 al$="":32$="":a3$="":a4$="" 
2138 goto 1588 
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PBechnung 


812277 
897211 
2989259 
Buau88 
899574 
805066 bytes 


2148 
2158 
2168 
2178 
2188 
2198 
2288 


memory 
program 
variables 
arrays 
strings 
fre(B) == 


APFELMÄNNCHEN 


Da das Errechnen des Apfelmännchen in Basic 

sehr langwierig ist, hat man die Möglichkeit, durch 
Drücken der Taste ‘F‘ in den Fast Modus zu schalten. 
Das hat leider den Nachteil, daß dann der Bildschirm 
abgeschaltet wird. Durch Drücken der Taste ‘S‘ wird 
wieder in den Slow Modus geschaltet. Dadurch wird 
der Bildschirm wieder sichtbar. 


Programmablauf: 

Beim Starten des Programms erscheint das Titelbild 
mit der Tastenbelegung und der ersten Wertabfrage. 
Im Programm sind schon 4 Werte enthalten. Diese 
werden benutzt, wenn man keine Werte eingeben will. 
Dazu drückt man 4mal Return. 

rege beginnt sofort das Erstellen eines Apfelmänn- 
chens. 

Dies ist sehr langwierig. Man muß mit einigen Stun- 
den Bearbeitungszeit rechnen. Von Vorteil wäre es, 
in den Fast Modus zu schalten, dadurch wird die 
Bearbeitungszeit um die Hälfte verkürzt. 

Zur Kontrolle kann man ja immer mal in den Slow 
Modus schalten. 

Nach der Bearbeitungszeit schaltet das Programm in 
den Slow Modus und die Grafik wird sichtbar. Diese 
kann jetzt betrachtet werden. Es wird nicht sehr 
schwer sein, eine Programmerweiterung zu schreiben, 
mit der man die Grafik abspeichern kann. 


Aprrfelbildloder - 1 


18 
28 
38 


rem apfelbildlader 
rem (p) commodore welt 
rem ==>=>=====-=-====== 2222 
rem cw team 
58 rem ! = 
rem version 3.5 
rem c16/116 plus4 c128 -= 
rem ==>>======== 2,2227 
graphic3,1:color®,1:color4,1 

188 color1,2:color2,3:color3,14 

118 graphicd, 1 

128 char,8,8,"mO"” 

138 char,8,6,"1"+chr$( 34) +"apfelbil 
d....nri1"+chr$(34)+"”,8B":rem bei kas 
sette ’,1’ 

148 char,8,9,"x"” 

158 char,9,11,"gR3"” 

168 poke1319,19:poke239,5 

178 fora=1328t01323:pokea, 13:next 


5 


— .4+ -— |rereimaennonen - 1 


18 rem apfelmaenchen ==========16 
28 rem (p) commodore welt == 
38 rem ========-=-==-=-==-=2=-=====2====== 
48 rem (c) by ee 
58 rem achim liebeck == 
68 rem i == 
78 rem version 3.5 == 
88 rem c16/116 plus4 c128 == 
98 rem ======-=- === ==... 


188 scnelr:trap37®8:rem trap vor ers 
tem test weglassen 

118 print:print:printtab( 8) ;"FFFFFF 
FFFFFFFFFFFFFFFFFFF" 

128 print:printtab(B);"apfelm 
aenche n" 

138 print:printtab( B) ; "DDDDDDDDDDDD 
DDDDDDDDDDDDD" 

148 print:print 

158 print” mit stop kann man zwisch 
en ’fast’ modus":print 
168 print:printtab(B) "und 
dus wechseln":print:print 
178 xu=-8.7:x0=2.3 

188 yu=-1.25:yo=1.25 

198 input” (xu=-8.78)..xu= ";xu:inp 
ut” (xo= 2.3)...xo= ";xo 

288 input” (yu=-1.25)..yu= ";yu:inp 
ut" (yu= 1.25)..yo= ";yo 

218 graphic3,i:color®,1:color4,1 
228 color1,2:color2,3:color3,14 

230 kx%=50:s=100:w%=1 

248 dx=( xo-xu) /159 

258 dy=( yo-yu) /199 

268 form=-8t0199:forn=8t0159 

278 xc=xu+rn#dx :yc=yu+m*dy 

288 k%=0:xz=9:yz=8 

298 k%=kK%+1 

388 xx=xztxız:yy-yztyz 

310 yzsatxztyz-yo:xzexx- yy-xXc 

328 ifk%=-kx%+1then358 

338 ifxx+tyy<sthen298 

348 F%=k%-int(lk%/4) *#4:drawf%,n,m 
358 next:next 

368 poke65286, peek( 65286) or16:getke 
yw$:graphicß:end 

378 trap38®8:poke65286,,peek( 65286) an 
d239: resume 

388 trap378:poke65286,, peek( 65286) or 
i6:resume 

398 rem apfelmaennchen=========16 
488 rem 812277 bytes memory == 
418 rem 881367 program 
428 rem 90088 variables 
438 rem 38988888 arrays mi 
448 rem BBBHUN bytes 
458 rem 
468 rem 


slow’ mo 
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EINZELSCHRITTSIMULATOR 


FÜR 
MASCHINENPROGRAMME 


Die Rechner C 16, C 116 und Plus/4 bieten durch ih- 
ren eingebauten Maschinensprache-Monitor “Tedmon“ 
auch dem Einsteiger Anreiz, sich mit der Program- 
mierung im Assemblercode des 6502 bzw. 7501 zu 
beschäftigen. Erfahrungsgemäß gelingt es aber fast 
nie, ein Maschinenprogramm auf Anhieb fehlerfrei 
zu gestalten. Ein wesentlicher Bestandteil der Pro- 
grammierung ist somit die Fehlersuche. Hier aber 
bietet der Monitor nur wenig Unterstützung, was man- 
chen Benutzer dazu bringt, sich frustriert von der 
Maschinenprogrammierung abzuwenden. Was insbe- 
sondere fehlt, ist die Möglichkeit, ein Maschinenpro- 
gramm schrittweise durchzutasten, wobei nach Aus- 
führung jeden Befehles die Wirkung auf dem Bild- 
schirm angezeigt wird. Um diese Lücke zu schließen, 
wurde der vorgestellte Einzelschrittsimulator 
(“Eisimu“) entwickelt. 
Der “Eisimu‘“ gestattet es, nach Eingabe der An- 
fangsadresse ein Maschinenprogramm oder Teile da- 
von wahlweise Schritt für Schritt auf Tastendruck, 
automatisch mit verzögerter Geschwindigkeit oder 
mit Prozessorgeschwindigkeit, abzuarbeiten. Vor 
jedem Schritt oder Abschnitt können den Prozessor- 
registern AC, RX, RY sowie den Flags vom Benutzer 
Werte zugeordnet werden. Nach jedem Schritt oder 
Abschnitt werden die Registerinhalte, einschließlich 
des Statusregisters, die Flags, der Stackpointer und 
die nächsten Assemblerbefehle angezeigt. Man kann 
sich nun die Wirkung der Programmbefehle beim 
Durchtasten unmittelbar ansehen. Programmschlei- 
fen wird man automatisch in schneller Geschwindig- 
keit abfahren lassen oder man kann ihre Wirkung 
durch geeignete Eingaben in die Register und Flag- . 
gen simulieren. Wenn der Rechner beim Durch- 
tasten des Programms doch einmal abstürzt, dann 
kann man ihn durch gleichzeitiges Drücken der 
Tasten Run/Stop und Reset wieder einfangen, ohne 
daß der Programmspeicher gelöscht wird. Der 
“Eisimu“ kann übrigens anhand einer Maschinenrou- 
tine zum Löschen von Bildschirmzeilen getestet wer- 
den, die nach Programmstart ab $DFO geladen wird. 
Dadurch, daß Gebrauch von den Disassemblerrouti- 
nen des Monitors gemacht wird und auf unnötige 
Verschönerungen der Bildschirmausgabe verzichtet 
wurde, umfaßt das Programm mit Variablenspeichern 
nur ca. 4KByte. Für Maschinenprogramme steht der 
Speicherbereich ab der Adresse $2200 zur Verfügung. 
Dieser Bereich kann durch die Befehlszeile 

POKE 55,00 : POKE 56, 34: CLR 
vor dem Zugriff des Betriebssystems geschützt wer- 
den. Die Speicherzellen $D8 bis$DB,$65E bis $677 
und $6F0 bis 72D dürfen durch das zu testende Pro- 
gramm nicht belegt werden, da sie für Hilfsroutinen 
des “Eisimu‘“ reserviert sind. 
Das Programm ist selbsterklärend, so daß hier auf ei- 
ne Bedienungsbeschreibung verzichtet werden kann. 
Zur Terminologie wäre noch zu sagen, daß unter An- 
fangsadresse die Adresse des ersten auszuführenden _ 
Assemblerbefehles und unter Endadresse die Adresse 


des ersten nicht mehr auszuführenden Befehles ver- 
standen wird. Wichtig: Zu beachten ist, daß in einem 
Programmabschnitt, der mit realer Prozessorgeschwin- 
digkeit durchlaufen wird, alle Stackveränderungen 
durch Push-, Pull-, JSR- und RTS-Befehle wieder auf- 
gehoben sein müssen; d.h., der Prozeßstack muß am 
Ende des Abschnitts wieder in dem Zustand vor 
Durchlaufen des Abschnittes sein. Diese Einschrän- 
kung gilt auch beim Durchfahren des Abschnittes 
mit verzögerter Geschwindigkeit. 
Bei der Einzelschrittsimulation wird der Programmspei- 
cher schrittweise mit Hilfe des Monitor-Disassemblers 
gelesen. Jeder Befehl wird nacheinander in eine Ma- 
schinenroutine (ab $065E) eingebettet, die die Regi- 
ster und Flags gemäß dem Ergebnis des vorherigen 
Schrittes setzt und nach Ausführung deren Inhalte 
wieder abspeichert (in$D8 bis $DB). Die Stack- und 
Sprungbefehle erfahren eine abweichende Behandlung. 
Bei der automatischen Ausführung mit Prozessorge- 
schwindigkeit wird zunächst $60 (RTS) in den Platz 
der Endadresse geschrieben und der Abschnitt gestar- 
tet. Nach Ablauf wird der ursprüngliche Code wieder 

eladen. Die Registerinhalte werden nach$D8 bis 

DB gerettet. 
Im folgenden wird das Programm “Eisimu“ im einzel- 
nen kommentiert: 
Zeile 50: Adressen des Tastaturpuffers (TP), 

des Tastaturpufferzeigers (TZ) und 
Anfangswert des Stackpointers $P$. 

Zeile 70 bis 100: Einladen einer Maschinenroutine 
(ab $65E) zum Laden der Prozessorregister bzw. zum 
Retten ihrer Inhalte (von und nach $D8 bis DB). 
Zeilen 100 bis 140: Laden einer Maschinenroutine zum 
Löschen von Bildschirmzeilen nach $DFO. In $DFC 
kann man die Nummer :der ersten zu löschenden Zeile 
(mit O beginnend) und in $DFD die Anzahl der zu lö- 
schenden Zeilen einpoken. 
Zeile 170 bis 230: Es werden der Monitor aufgerufen 
und Eintragungen in die entsprechenden Felder ge- 
macht. Damit der Rechner alles ausführt und anschlie- 
ßend im Basicprogramm weitermacht, muß der Tastatur- 
puffer geladen werden. Die Anzahl der Returns wird 
in den Pufferzeiger eingetragen. 


„ Zeile 260 bis 280: Es werden verschiedene unnötige 


Bildschirmzeilen gelöscht (s. Kommentar zu Zeilen 
100 bis 140). 

Zeilen 300 bis 320: Ablesen der geretteten Registerin- 
u und Ausgabe in das bereits vorbereitete Monitor- 
eld. 

Zeilen 330 bis 410: Anlegen eines Ausgabefeldes für 
die Flags (Zeile 330 bis 350). Gewinnen der Flagzustän- 

de aus dem Wert des Statusregisters SR (Zeilen 350 
bis 400) und Ausgabe in das Monitorfeld. 

Zeile 420: Ablaufsteuerung für automatische Aus- 
führung mit Verzögerung. 


Zeile 430 bis 480: Menü 


Bitte lesen Sie weiter auf Seite 26 
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'Einzelschrittsimulator . — 1 _ 


18 rem einzelschrittsimulator ===16 
28 rem (p) 11/86 commodore welt == 
38 rem ===-==-===========2= === === ===> 
48 rem (c) 18/86 by == 
s@ rem dr. u. lotter == 
68 rem ratingen == 
78 rem zu == 
882 rem c16/116 plus 4 == 
98 rem =========-==-=-=-=-============2- 
188 gosub6BA08 

128 scenclr 

138 dimp%( 8) ,z%( 8) 


tp=1319:tz=239:sp$="rF8" 

fori=8t07:z%[i)=2"i:next 

168 data165,216,72,48,165,217,166,2 
18, 164,219,96:rem $d8-$db-->m 

178 fori=8to1®:reada:poke( 1638+i) ,a 
:next 

188 data133,217,134,218,132,219,8,1 
04,133,216,165,217,96:rem m-->$d8-$ 
db 

198 fori=®8to12:reada:poke( 1643+i) ,a 
next 

200 data32,8,169,8,168,12,174,236,6 
‚224,0,248,15,24,234,234,234,105,40 
‚144,2,208 

210 data24,282,208,247,234,234,133, 
224,132,225,174,237,6,173,238,6,168® 
‚8,145,224 

220 data299,192,40,208,249,72,165,2 
24,105,39,144,3,230,225,24,133,224, 
194,202,208,231,96 

238 fori=-8t063:reada:poke( 1774+i) ,a 
next 

248 input"adresse in hexcode 
259 he$=hex$( dec( ha$) +6) 

268 printcl$"monitor"” 
278 char,2,6,”d "+ha$+" 

288 char,®,15, 

298 char,8,17,"goto338" 

388 poketp, 19:poketz,1 
318 fori=1to1@:poketp+i,13:next 

328 poketz, 1i@:end 

338 fori=8t07:p%( i)=®:next 

348 m$="":p$=""::$="":f%=9 

358 data8,3,6,1,15,4 

368 restoreDEh 

378 fori=1to3:reada,b: poke17722, a:po 
ke1773,b:sys1776 

389 Br 

398 m$=m$+ha$+" ":fori=8t03:m$=m$+m 
id$C hex$( peek(216+1)) ,3,2)+" ":next 

A408 Fori=8t015:a=asc(lmid$(m$,i+1,1) 
):poke3274+i,a+64*( a>=65) :next 

A412 Fori=-Btol:a=asclmid$( sp$,i+1,1) 
}):poke3291+i,a+64*( a>=65) :next 

428 data13,22,45,2,4,9,26,3 

438 restore33® 


"-ha$ 


"+he$ 


448 Fori=-Bto?:reada:poke3255+2*i,a: 
next 

458 a=peek( 216) 

4608 pXA[lB) =aandz%l 7) 

478 For i=-1t07:a=3a-p%l i-1)*z%(8-i): 
p%( i)=aandz%( 7-i) :next 

458 fori=-8t07:ifp%[l i}-Bthenp$=p$+st 
r$(B) velsep$=p$+tstr$( 1) 


A9B next 
588 fori=®8t015:poke3294+i,asc( mid$( 
p$,i+1,1)):next 

518 ifpt%= Ithengoto688 

528 ie "-print"schritt 
ausfuehren ------- e” 

538 srintregiater aendern 
PR pi” 

548 print"programmteil ausfuehren - 
a P” h 

558 print"programm beenden 


- ss 

568 dowhilet$=chr$( 13) ort$="":gett$ 
:loop 

578 a=-(t$="e") ER EI* "r")-3%82(t$="p 


"V;— -Aar®l[ t$= r 5") 


588 onagosub638#, 1228, 1368, 1578 

598 goto 258 

688 gosub638 

619 gosub 1368 

628 goto258 

638 rem*****einzelschritt**#ttrrrte: 
648 d$="":0p$="":as$="" 

658 fori=8t0o27:q=peek( 3354+i) 

668 q=-q*lq>=32) -(g+64) *#( q<=26) :d$= 


d$+chr$(g) :next 


67@ ad$=mid$( d$, 1,4) 

688 Fori=7t0o13step3:cm$=mid$( d$,i 

) 

698 ifcm$<>".:."thenop$=op$+cm$ 

7808 next 

718 fori=16t027step2:cm$=mid$( d$,i 
2) 

728 ifcm$<>".." thenas$=as$+cm$ 
738 next 

748 e1$=mid$(as$, 1,1) ve2$=mid$(as$, 


2,1) :e3$=mid$( as$, 1,3) 

758 ife3$="jsr"thenst$=st$+ha$:sp$= 
right$( hex$( dec( sp$) -2) ‚,2) :g0ot0o838 
768 ife3$="rts"thengosub 1988: return 
778 ife3$=" jmp"thengoto83® 

788 t=e1$<>"b"or(e2$="i"ore2$="r"): 
ift=-1thengoto898 

798 m=val(lmid$(p$,2,1)) :v=vallmid$( 
p$,4,1)):z=val(lmid$(p$, 14,1)):c=val 
(mid$(p$,16,1)) 

8082 a=(e3$="bpl"andm=B) or( e3$="bmi" 
andm=1)or(e3$="bvc”andv=B) or( e3$= 
vs"andv=1) 

818 b=(e3$="bne"andz=B)or( e3$="beg" 
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andz=1)or(e3$="bcec”"andce=B)or(e3$="b 
cs”ande=1) 

828 ifa=-1Iorb=-1iIthengoto838:elsegot 
0888 

830 if mid$(las$,5,1)=-"$"thenha$=mid 
$las$,6,4) :return 
848 a$=-mid$las$,7,4) :1=dec( a$) :h=1+ 
1 
8589 
868 
878 
888 


al=peek( 1) :ah=peek(.h) 
ha=-al+256*ah 

ha$=hex$(ha) :return 
1%=2:g0t0988 

898 1%=len( op$)/2 

988 if e3$="pha"”ore3$="php"thengosu 
b1278 8 

918 if e3$="pla"”ore3$="plp"thengosu 
b1138 

928 iff%=-ithenf%=9:elsegoto948 

938 goto9B8 

948 fori=1t03-1%:0op$=op$+"ea"”:next 
958 fFori=-8to2:poke1648+i,dec(mid$( o 
p$,2*i+1,2)) :next 

968 sys1638 

978 poke1649,96 

988 ha$=hex$( 1%+dec(ha$)) 

998 return 

1DBBD remtrtrerereneeerptstereeeeene 
1818 if len{ st$) <s4thenprintrn$"prog 
ramm abgelaufen !"rf$:else goto1838 
1028 end 

1838 ha$=hex${f 3+dec(right$(st$,4))) 
1848 st$=1left$( st$,len(st$)-A) 

1858 sp$=right$(hex$( 2+dec( sp$)) ,2) 
18680 return 

10878 remt*trz#rre282002pha/phpttrreee 
18808 a=216-( e3$="pha”) 

1298 st$=st$+right$( hex$( peekla)),2 
) 

1188 sp$=right$(hex$( dec( sp$) -1),2) 
11190 fF%=-1 

1128 return 

1138 
1148 iflen( st$) <2thenprintrn$"error 
: stapel ist leer"rf$:elsegoto1168 


1158 end 

1168 a=216-(e3$=-"pla"”) 

1178 pokea,dec(right$(st$,2)) 

1188 st$=1left$(st$,1len( st$)-2) 

1198 sp$=right$( hex$( 1+dec( sp$)),2) 
1288 f%=-1 

1218 return . 
1228 rem***#*register aendern**#**** 
1238 t$="" 

1248 poke1772,16:poke1773,4:sys1776 
1258 printc2$c2$c2$rn$"register/fla 
gs rechts vom cursor aendern"rf$c4$ 
1260: print”... .: "rn$"fertig? return 
druecken !"rf$ = 
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1278 fFori=8t07:poketp+ti,29:next:pok 
etz,B 

1288 printho$left$(gd$,4) 

1298 inputa$ va 

13088 a=-®:fori=-22t036step2:a=a+tvallm 
id$la$,i,1))*z%[L 7-(i-22)/2) :next 
1318 m$=right$(hex$(a),2) 

1328 fori=-8to1:b=asc(mid$(m$,i+1,17) 
) :poke3279+1,b+64#( b>-65) :next 

1338 for i=9t015step3:m$=m$+mid$( a$ 
‚i,2):next 

1348 fori=-B®to6step2:poke216+i/2,dec 
(mid$(m$,i+1,2)) :next 

1358 return 

1368 rem#**programmteil ausfuehren** 
1378 poke1772,16:poke1773,4:sys1776 
1388 ifpt%=1thengoto1448 
1398 print"...."rn$"verzgegerte aus 
fuehrung -->1"rf$ 

1488 print"...."rn$"reale ausfuehru 
ng Sons >2"rf$ 

1418 printleft$(qu$,5)"” "c4$"anfang 
s-, endadresse, ausfuehrungsart ";: 
inputha$,en$,pt% 

1428 v=dec( ha$) :w=dec(en$) 

1438 ifpt%=2thengoto 1518 

1448 v=dec( ha$) 

1458 dountil( v>=w) and( sp$="f8") 
1468 for i=1t0o1588:nexti 

1470 return 

1488 loop 

1498 pt%=D 

1588 return 

1518 co%=peek[w) :pokew, 96 

1529 sysv 

1538 pokew,co% 

15498 pt%=8:ha$=en$ 

1558 sys1643 

15690 return 

1578 rem*****programm beenden ***** 
15880 end 

60822 rem nachspann 
68B12 rem * Farbcodes/steuercodes * 
68828 c4$=chr$( 817) :rn$=chr$( 818) 
68838 ho$=chr$( 819) :c2$=chr$( 145) 
6BB4B rf$=chr$( 146) :c1$=chr$( 147) 
68045 c3$=chr$l( 829) 

689858 rem #*#*##3#* zeichenfolgen 
6HU68 Forg=-1t0AB 


a 


68978 qu$=qu$+c2$:qr$=qgr$+c3$ 

608975 qd$=qd$+c4$ 

68888 nextgq 

608898 return 

68199 zem.o=---s=- 7 7. >22 Zen 
6H112 rem BBBHBOO bytes memory == 
68128 rem 9B48BB bytes program == 
68139 rem AHROBB bytes variables == 
6B140 rem BBBOBB bytes arrays == 


Einzelschrittsimulator 


68158 rem EOBHRDB bytes strings 
6B16R rem BARBAR bytes fre(®) == 
69178 rem 


EISIMU 


Fortsetzung von Seite 23 


Zeilen 560 bis 570: Einlesen der ersten Disassembler- 
zeile vom Monitorbild unter Umwandlung in ASCIH- 
Code und Abspeicherung in D$. 

Zeilen 580 bis 640: Aufspalten von D$ in Adressen- 
teil (AD$), Maschinencode (OP$) und Assembler- 
teil (AS$). 

Zeilen 660 bis 750 und 770 bis 780: Schaffung der 
Voraussetzung für Sonderbehandlung bestimmter 
Befehle (s. besonders Zeile 660 mit Setzen der Rück- 
sprungadresse in den Pseudostack). 

Zeilen 810 bis 830: Auffüllen von OP$ bis auf 3 
Hexzahlen mit $EA (=NOP) und Einladen des 
Codes OP$ in die Lücke zwischen dem Registerlade- 
und Registerrettungsprogramm (s. Kommentar zu 
Zeilen 70 bis 100). 

Ausführung der Gesamtroutine. 

Zeile 840 bis 850: Alten Zustand der Registerlade- 
routine wieder herstellen und Setzen des Adressen- 
speichers (HA$) auf den nächsten Schritt. 

Zeilen 880 bis 910: Bei leerem Pseudostack ST$ 
wird Ende des Maschinenprogramms angenommen 
(Zeilen 880 bis 890). Andernfalls wird die Rück- 
sprungadresse von ST$ geholt, ST$ entsprechend ver- 
kürzt und der Stackpointer SP$ um zwei erhöht. 
Zeilen 920 bis 1070: Ein- bzw. Ausladen geretteter 
($D8, $D9) oder zu rettender Registerwerte aus dem 
Pseudostack. Bearbeiten des Pseudostacks und des 
Stackpointers. Bei leerem Stack erzeugen PLA und 
PLP eine Fehlermeldung. _ 

Zeile 1110: Löschen unnötiger Bildschirmzeilen 

(s. Kommentar zu Zeilen 100 bis 140). 

Zeilen 1120 bis 1140: Ausdruck und Setzen des 
Cursors (Zeile 1140). 

Zeilen 1160 bis 1210: Einlesen der geänderten Bild- 
schirmzeile in A$. 

Erzeugen des Statuswortes aus den Flaggenzustän- 
den (Zeile 1170) und Ausgabe (Zeile 1190). 
Speichern der eingegebenen Registerinhalte in den 
Zellen $D8 bis DB (Zeile 1210). 

Zeilen 1240 bis 1280: Löschen unnötiger Bildschirm- 
zeilen (s. Kommentar zu Zeilen 100 bis 140). und 
Eingabeaufforderung. / 

Zeilen 1310 bis 1370: Steuerung der verzögerten 
Ausführung durch zyklische Betätigung der Einzel- 
schrittausführung, bis Endadresse erreicht ist. 

Die Schleife in Zeile 1330 stellt die Verzögerungs- 
zeit zwischen aufeinanderfolgende Schriften ein. 
Diese kann durch die Anzahl der Schleifendurchläu- 
fe dem persönlichen Geschmack entsprechend ge- 
ändert werden. 

Zeilen 1380 bis 1430: Ausführung in Realgeschwin- 
digkeit durch Prozessor. Einladen von $60 (RTS) 

an die Stelle der Endadresse, nachdem der ursprüng- 
liche Wert in den Speicher CO% gerettet wurde 
(Zeile 1380). Nach Ausführung des Programmteiles 
Wiederherstellung des alten Zustandes (Zeile 1400). 
Zeilen 1410 bis 1420: Setzen des aktuellen Adres- 
senspeichers auf die Endadresse des Programmab- 
schnittes. Retten der Registerinhalte nach $D8 

bis $DB (Zeile 1420). 


HIRES- 
SCROLL 


Wohl jeder kennt die Spiele, bei denen ein Teil des 
Bildschirms sich bewegt (zum Beispiel Treppen und 
Aufzüge), während der größte Teil stillsteht. 

Das Programm zeigt, wie in Spielen oder anderen Pro- 
grammen ein beweglicher Hintergrund mit wenigen 
Mitteln gemacht werden kann. Man kann jedes belie- 
bige Zeichen als Hintergrund nehmen, man braucht 
nur in Zeile 105 bzw. 180 den entsprechenden 
CHR$-Code einsetzen. Ist auch auf andere Compu- 
ter umsetzbar, wenn man weiß, wie der Zeichensatz 
neu gemacht werden kann. Auch mehrere Zeichen 
als kleiner Grafikblock sind denkbar. Dann wird es 
jedoch mit Basic zu langsam. 


FILM- 
KAMERA- 
STEUERUNG 


Mit diesem Programm ist es möglich, über den Kas- 
settenanschluß eine Schmalfilmkamera zu steuern. 
Es eignet sich hervorragend bei der Erstellung von 
Trickfilmen und Tricktiteln. Nach dem Laden und 
Starten des Programmes werden Sie gebeten, die ge-' 
wünschte Bilderzahl einzugeben. Hierbei wird die An- 
zahl der Bilder gewählt, mit der der Computer die 
Filmkamera auslöst. Auf dem Bildschirm erscheinen 
dann die bisher gemachten Bilder sowie die Laufzeit 
bei den entsprechenden Geschwindigkeiten. Auch 
die Länge des Filmes wird angegeben. Nach Aus- 
lösung der gewählten Bilder erscheint dann die 
Frage, ob weiter gemacht werden oder ob das Pro- 
gramm beendet werden soll. 
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Hiresscroll | Ksımeraestevuerung 


418 rem hiresscrollen von zeichen == 
15 rem (p) 12/86 cbm revue team == 
28 rem =========-=====-7 === 
25 rem (c) 
38 rem c-64 = 
35 rem rss ann nn n Ban COS SASII 
48 c1$=chr$( 147) 

45 rem KERNE EEREN 
58 rem ** zeichensatz nach 8192 **#* 
55 rem #ierreneneneeeeneretiraneneen 
68 r=-56334:s=8192:b=1824 

65 poke53272,24:poker,®:poke1,51 

78 fori=Bto2*b:pokes+i,peek( i+53248 
):next:rem nur gross/graphik sonst 
A*=b . 

75 s=8192:fori=1288t01288:pokes+ti,i 
29:next:pokes+1288,255:pokes+1287,2 
55 - 

88 poke1,7:poker,1 

85 rem #HrHeeereeeeeneeeeeeeennenen 
98 rem * aufwaertsscrollen von * 
95 rem * pfeil nach oben chr$( 94) * 
108 rem este 
185 a$=chr$f( 94) :ac=asc(a$) :fori=i1to 
48:b$=b$+a$:next 

118 bc=((acand128) /2)or( acand63) 
115 printcl$:fori=1to23:printb$; :ne 
xt 

128 fori=8t0255:poke1424+i,i:next 
125 r=s+be*#8:fori=8t07:ali)=peek( r+ 
i) :next 

138 a=-8:poke198,® 

135 a=atl 

148 for i=® to 7:poke r+i,ala) 

145 a=(a+t1)and? 

158 ifpeek( 198) <Iithennexti:goto135 
155 rem #tainreenereteeeeieneerenen 
168 
165 
178 


rem * seitwaerts scrollen * 
rem #*pfeil nach links chr$( 95) * 
rem Pers 
175 print c1$:b$="" 

1808 a$=chr$( 95) :ac=asc( a$) :fori=1to 
AB8:b$=b$+a$:next:poke198,8 

185 bce={(ac and 128)/2) or (ac and 
63) 

198 printchr$( 147) :fori=1to23:print 
b$; :next 

195 fori=-8t0255:poke1424+i,i:next 
288 1=-8192+bc*8 ü 

285 fori=-8to7:by=peek( 1+i)*2 

218 hi=-(by>255) 

215 pokel+i,(by and 255) or hi 

228 ifpeek( 198) <Iithennext:goto2BS 


18 rem filmkamera ====-=-==-====-===6016 
28 rem (p) 11/86 commodore welt bw= 
30 rem ==>====-==---== 22-22-7222 
48 rem (c) 85/86 by 


58 rem bernd welte = 
68 rem interface am kassettenport = 
78 rem version 3.5 48z/ascii = 
88 rem c-i6 + 1530/31/41/51 = 
98 rem ==>==-=>=- == mean 
188 c1$=chr$( 147) :ct$=chr$( 157) 

11@ rf$=chr$( 146) :rn$=chr$( 18) 

128 he$=chr$( 19).::c4$=chr$( 17) 

138 c1$=chr$( 157) :c2$=chr$t( 145) 

148 s1$=chr$( 32) :rt$=chr$( 13) 

158 z1$=chr$( 68) :z2$=chr$( 62) 

168 za$=chr$( 176) :zb$=chr$( 96) 

178 zc$=chr$( 174) :zd$=chr$( 125) 

188 ze$=chr$( 173) :zf$=chr$( 189) 

i98 printchr$( 14) 

288 forg=-1to2:q91$=q1$+c4$:nextq 

218 forg=1to2:ga$=gqga$+si$:nextg 

228 forg=1t04:q94$=qg4$+s1$:nextq 

238 forgq=1to18:zh$=zh$+zb$:nextg 
24B forgq=1t08:z8$=z98$+s1$:nextgq 

258 forg=1t013:2j$=zj$+si$:nextg 
268 forg=1t014:zi$=zi$+zb$:nextg 
278 forg=1t036:zg$=zg$+tzb$:nextgq 
280 x1$=x1$+rn$+za$+zi$+zc$+trf$ 

298 x2$=x2$+rn$+zd$+xx$+zd$+rf$ 

388 x3$=x3$+rn$+ze$+zi$+zf$+rrf$ 

318 printcl$; 

328 printrn$s1$za$zg$zc$s1$; 

338 prints1$zd$zB$"AGB Welte Softwa 
re"zO$qga$zd$; 

348 printga$ze$zg$zf$s1$rf$; 

358 printc4$zj$za$zh$zc$z8$ 

368 printzj$zd$rn$"Filmkamera"rf$zd 
$z8$ 


378 printzj$ze$zh$zf$z2$ 


388 printchr$(27)"t"” 

392 vol5 

4088 pokeBd,B 

418 x=B:q=d:qgg=-d:b1=-9:b2=8 

428 char1,3,8,"":poke19,5:input"Gew 
uenschte Bilderzahl ";q:poke19 
(2) 


? 

438 qq=q:q=q+x 

448 ifgq=-@then428 

A458 char1,2,24,"Zum Start beliebige 
Taste druecken" 

A468 getkeyaa$ 

478 char1,8,24,"“ 

488 do 

4998 x=x+1:b@=bB+1:sound1,988,5:b1=b 

28/18:b2=b9/24:b3=bO*.908423 


588 char1,3,18,"Gewaehlte Bilderzah » 


538 


548 
n 
558 


568 
578 
s5aR 
s9R2 
592 


518 
528 
638 
648 
B 

6582 
668 
678 


UNSERE SONDER. |: 
HEFTE FÜRSIE |: 


r ER E 709 


Heft für 720 
C16/116/Plus 4! _ 728 


702 
758 
768 
770 
788 


798 


808 
818 


828 
ZZ 838 
848 
858 
868 
878 
889 
899 
9322 
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Kamerosteuvuerumg 


1":printtab( 31) :printusing"AAHH";ag 

518 char!,3,12,"Bilder gesamt" :prin 

ttab( 21) :printusing"”#HH#"” ;bO 

528 char1,3,14,"Laufzeit in sec bei 
18/Bs":printusing "AHAHH.HA” ;b1 


char1,3,16,"Laufzeit in sec bei 


?4./Bs":printusing "AHAR.HH" ;52 


char1,3,18,"Filmlosenge in Meter 
"-printusing"AHHH.HH" 63 

char1,3,2®R,"Anzahl der Szenen 
":printusing "AHHHHHH" ;bO/ag 

fory=1t05@8:poke®ß,8:nexty 

forz=1t059:pokeßB,®d:nextz 

loop untilx=g 

sound1,889,3® 

char?3,1,22,"A1ü Weitermachen Ä 


2Uü Neue Bilderzahl"” 


charT,1,23,"A3U Ende” 

do 

getkeya$ 
ifa$="1"thenx=9:gosub788:goto48 


ifa$="2"thengosub7898:g0t0498 
ifa$=-"3"then688 

100p 

ehar1,9,24,” 


char1,8,24,"Sind Sie sicher ? ( 


J/N)” 


do 


'getkeya$ 


ifa$="j"then?58 
ifa$="n"thengesub?78B9:gosub81PB:g 


oto428 


loop 

printchr$( 147) 
ehart,15.,12,."G600D-BYE” 
goto?778 

char! ,0,22,” 


charı1,0,293," 


return:return:return 
char1,8,24," 


return 

rem kamerästeuerung =-=====-==p4 
rem 862671 bytes memory === 
rem 892559 bytes programm === 
rem OQ@B849 bytes variables === 
rem BOBBBRN bytes arrays === 
rem BBRB2906 bytes strings === 
rem 858112 bytes free (8) === 
rem #=+=+=-- ++ - an -- ner ersereenne 


| LISTING- 


LATEINISCHE 
KONJUGATION 
+ DEKLINATION 


Die Handhabung ist durch ein Menü vereinfacht. Die- 
ses Menü erscheint sofort nach dem Starten. Danach 
eg Sie mit den Tasten 1-0 den zu lernenden Menü- 
unkt. 
ann erscheint eine Tabelle, die aber leer ist. 
Nun müssen Sie zwischen 
1) Ausdrucken der Formen oder 
2) Testen der Formen wählen. 
ei der Formen hakt der Computer Richti- 
ges ab. 
Wenn Sie mit dem Durchlesen oder Testen fertig sind, 
drücken Sie eine beliebige Taste und Sie gelangen in 
das Menü zurück. 
Wenn Sie Griechisch oder andere Formen lernen wol- 
len, so ändern Sie die Überschrift und Menüpunkte 
und tragen die Formen in die Datazeilen ab 1000 ein. 
Beide Programme dienen dem Erlernen von Latein. 
Die Menüführung ist für beide gleich. 


BORSE 


Sie spekulieren an der Börse. Versuchen Sie, durch 
günstiges Aufkaufen und Abstoßen der Aktien mög- 
lichst viel Geld zu erwirtschaften. Haben Sie am Ende 
des Monats genug Geld zusammen, bekommen Sie ei- 
nen Ehrenplatz unter den 7 besten Börsenspekulanten. 
Passen Sie auf: Ihre Schulden verdoppeln sich täglich! 
Das könnte zu einem Bankrott führen, den Sie nicht 
überleben. Vermehrt sich Ihr Startkapital (50.000 DM) 
um mehr als 200%, sind Sie Profi-Börsenspekulant. 
Die ‘Rems‘ mußten bei diesem Programm ebenfalls 
wegfallen, weil die Variablen einen relativ großen Teil 
des Speichers in Anspruch nehmen. 


(Zu Seite 34) 
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Konjugation 


i8 rem konjugation 


28 rem (p) commodore welt == 
38 rem ========================2== = 
AB rem (c) by dirk cyrener == 
58 rem == 
68 rem version 3.5 ABz/ascii == 
78 rem c16/c116/plus 4 == 
BB rem ====-===-=-==-=-=== === == === mon 


98 gosub 1718 

180 rem ###*# titelbild #rrrrerseeer 
vi = 

128 scnelr:print chr$( 14) :color®,2, 
7:color4,7,4 

138 printre$c3$"” Konjugation in Tab 
ellenuebersicht" 

148 printlin$ 

158 char1,16,3,b1$+rn$+"MENUE"+rf$ 
168 char1,2,5,"(1) Konjugation (lau 
dare Praesens)"” 

178 char1,2,7,"”(2) Konjugation (lau 
dare Imperfekt)"” 

188 char1,2,9,"{3) Konjugation (lau 
dare Future 1)" 

198 char1i1,2,11,"(4) Konjugation (la 
udare Future 2)" 
288 char1,2,13,"(5) 
udare Perfekt)“ 

218 char1,2,15,"”(6) 
udare Plusquam.)"” 
228 char1,2,17,"(7 
udare Praesens..*)" 
238 char1,2,19,"”(8) 
udare Imperfekt *)"” 
248 char1,2,21,"(9) 
udare Perfekt...*)"” 
258 char1,2,23,"(®) 
udare Plusquam..*)"” 
260 : 

278 rem #*### menueabfrage #F#HF#Ft® 
288 : 

298 getkey a$:scncelr 

388 ifa$="1"theny=1988:char1,8,1,"a 
Konjugation( Praesens Passiv+tAktiv) 
":goto44A8 

318 ifa$=-"2"theny=1898:char1,8,1,"a 
Konjugation{ Imperfekt Passiv+Aktiv 
)":goto448 

328 ifa$="3"theny=1188:char1,8,1,"a 
Konjugation(Future 1 Passiv+Aktiv) 
":goto448 

338 ifa$="4"theny=1278:char1,8,1,"a 
Konjugation{Future 2 Passiv+tAktiv) 

. ":goto448 

348 ifa$="5"theny=1368:char1,®8,1,"a 
Konjugation(Perfekt..Passiv+tAktiv) 
":goto44AB 

358 ifa$="6"theny=1458:char1,8,1,"a 
Konjugation{Plusquam Passiv+Aktiv) 


Konjugation (la 
Konjugation (la 
Konjugation (la 
Konjugation (la 
Konjugation 


Konjugation 


":g0to448 

368 ifa$="7"theny=1548:char1,8,1,"a 
Konjugation(Praesens Passiv+tAktiv 

*#)"-goto44A8 

378 ifa$="8"theny=16398:char1,8,1,"a 
Konjugation( Imperfekt Passiv+Aktiv 
*)":goto448 , 

388 ifa$="9"theny=1728:char1,8,1,"a 
Konjugation(Perfekt..Passiv+Aktiv 
*#)":g0oto448 

398 ifa$="®"theny=1818:char1,8,1,"a 
Konjugation(Plusquam Passiv+tAktiv 
#)":goto448 


A088 goto 128 

a1B : 

428 rem ####*t tabelle Frarseeererent 
A438 : 

448 char1,8,2,1n$ 

458 char1,90,3,"sg- ..- AKEIV: ..... „u: 


..Passiv" 

468 char1,8,4,zn$ 

478 char1,0,5,"..1." 

A488 char1,8,6,1n$ 

498 char1,8,7,"..2."” 

588 char1,8,8,1n$ 

518 char1,8,9,"--3.” 

528 char1,8,18,zo0$ 

538 char1,8,11,"pl. 

5AB char1,8,12,zn$ 

558 char1,80,13,"..1."” 

568 char1,8,14,1n$ 

578 char1,8,15,"..2." 

588 char1,8,16,1n$ 

598 char1,0,17,"..3." 

688 char1,8,18,zo$ 

618 char1,8,19,"inf.“ 

628 char1,8,28,1n$ 

638 char1,8,21,"imp." 

648 char1,8,22,"1n$ 
char1,8,23,"Ger."” 

668 : 

rem ####33# hauptprogramm #F#FFF% 
688 : 
color1,2,3:restore y:x=-5:getkey 
a$:if a$="2" then goto 738 

for i=1 to 9:read a$,b$ 

if i=4 then x=x+2 

728 char1,5,x,3$:char1,22,x,b$:x=x+ 
2:next:getkey a$:goto 128 

738 for i=1 to 9:read a$,b$:if i=-4 
then x=x+2 

748 char1,5,x,"":inputav$:chari,22, 
X; :inputbv$ 

ifav$=a$ then char1,19,x,re$+zp 


ifbv$=b$ then char1,38,x,re$+zp 


x=x+2:next:getkeya$:goto 128 


Konjugation 


788 
798 
888 
818 
828 


rem ###F# datazeilen HERREN 


data 
data 


‘data 


data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 


data 
data 


data 
data 
data 
data 
data 
data 
data 
data 


data 
data 
data 
data 
data 
data 
data 
data 


data 


laudo, laudor 

laudas, laudaris 
laudat, laudatur 
laudamus, laudamur 
laudatis,laudamini 
laudant, laudantur 
laudare,laudari 
lauda/ate,- 

laudandi, laudandus 
laudabam, laudabar 
laudabas, laudabaris 
laudabat ,laudabatur 
laudabamus, laudabamur 
laudabatis,laudabamini 
laudabant , laudabantur 


’ 

-,- 

laudabo, laudabor 
laudabis,laudaberis 
laudabit ,laudabitur 
laudabimus, laudabimur 
laudabitis,laudabimini 


laudabunt , laudabuntur 


> 
laudavero, laudatus ero 
laudaveris,laudatus eris 
laudaverit,laudatus erit 
laudaverimus,laudatus eri 


laudaveritis,laudatus eri 


laudaverint,laudatus erun 


laudavi, laudatus sum 
laudavisti,laudatus eo 
laudavit,laudatus est 
laudavimus,laudatus sumus 
laudavistis,laudatus esti 


laudaverunt, laudatus sunt 
laudavisse, laudatum esse 


laudaveram, laudatus eram 
laudaveras,laudatus eras 
laudaverat,laudatus erat 
laudaveramus, laudatus era 


laudaveratis,laudatus era 


1568 


31 


tis 
1318 
t 
1328 
1338 
1348 
1358 
1368 
1378 
1388 
1398 
1488 
1418 
1428 
1438 
1448 
1458 
1468 
1478 
1488 
1498 
1588 
1518 
1528 
1538 
1548 
1558 


data 


data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 
data 


data 
data 
data 
data 
data 
data 
us 
1578 
is 
1589 
1598 
1650 
1618 
1628 
m 
1638 
Ss 
1648 
t 
1658 
semus 
1669 data 
setis 
1678 
ent 
1688 
1698 
1788 
1718 
1728 
1738 
1740 
1758 
1768 
1778 
1788 


data 


data 
data 
data 
data 
data 


data 
data 


data 


data 


data 
data 
data 
rem 

rem 

rn$= 
c3$= 
rf$= 
rem 

fori 
in$= 


data 


laudaverant, laudatus eran 


laudem, lauder 
laudes, lauderis 
laudet , laudetur 
laudemus, laudemur 
laudetis,laudemini 
laudent, ,laudentur 


, 


laudarem, laudarer 
laudares,laudareris 
laudaret ,laudaretur 
laudaremus, laudaremur 
laudaretis,laudaremini 
laudarent, laudarentur 


; 
laudaverim,laudatus sim 


laudaveris,laudatus sis 
laudaverit,laudatus sit 
laudaverimus,laudatus sim 


laudaveritis,laudatus sit 


laudaverint,laudatus sint 


laudavissem, laudatus esse 


laudavisses,laudatus esse 


laudavisset,laudatus esse 


laudavissemus,laudatus es 
laudavissetis,laudatus es 


laudavissent, laudatus ess 


nachspann 
* farbceodes/steuercodes = 
chr$( 818) :re$=chr$( 828) 
chr${ 829) :b1$=chr$( 831) 
chr$({ 146) 

##% zeichensatz/graphik * 
=1t049: zn$=zn$+chr$( 184) 
In$+chr$( 45) :zo$=zo$+tchr$l 


Konjugation = | 


185) :next 

1798 zp$=chr$( 186) 

1888 return 

1818 rem kon jugation============016 
1828 rem 812277 bytes memory = 
1838 rem 885135 bytes program ==) 
1848 rem 888098 bytes variables == 
1858 rem AB8088 bytes arrays == 
1868 rem 889162 bytes strings == 
1878 rem 89868853 bytes fre(B) = 
1BBQ8 rem =-===-=-=-=-================== 
18 rem deklination==============616 
28 rem (p) commodore welt == 
38. ren =E=r>372555s73357SssSör5ssssS 
4D rem (c) by dirk curener == 
58 rem = 
68 rem version 3.5 48z/ascii == 


ci6/c116/plus 4 == 


98 rem #### titelbild #Htr#rrrstHttt 
188 gosub 1698 

118 scenelr:print chr$( 14) :color®,2, 
7:color4,7,4 

128 printrego3$" Deklination in Tab 
ellenuebersicht" 

130 printe33"-- 2-2 nenne 


78 rem 
88 rem 


148 char1,16,3,b1$+rn$+"MENUE"+rf$ 
158 char1,2,5,"(1) Deklination casa 
+ dies" 

168 chari,2,7,"(2) Deklination lupu 
s + puer” 

178 char1,2,9,"(3) Deklination foru 
m + longum” 

Le) Fa 2,h4,”(4) Deklination hon 

or + nom 

198 char 2% 13,"(5) Deklination opu 

s + tempus” 

288 char1,2,15,"(6) Deklination por 

tus + cornu” 

218 char1,2,17,"(7) Deklination tur 

ris + mare" 

228 char1,2,19,"(8) Deklination civ 

is + urbs" 

238 char1,2,21,"(9) Deklination ego 
+” 

248 : 

258 rem #### menueabfrage *Frtrrrz 
268 : 

278 getkey a$:scncelr 

288 ifa$="1"theny=1888:char1,5,1, 
Deklination....e Deklination":goto 
418 } 


298 ifa$=-"2"theny=1189:char1,5,1, 
Deklination" :goto418 

388 ifa$="3"theny=12@8:char1,5,1, 
Deklination" :goto418 


| Deklination 


318 ifa$="4"theny=1388:chari Bi K 
onsunantische Deklination” :g0t0418 
328 ifa$="5"theny=1488:charl ‚s,1,"&K 
onsunantische Deklination" ;gotoaio 
338 ifa$="6"theny=1588:charl 5,15 
Deklination" :g0t0418 

348 ifa$="7"theny=1688:chari 3,1, 
Deklination":goto41® 

358 ifa$="8"theny=1788:chari LS 

emischte Deklination" :g0to41Q 

368 ifa$="9"theny=1888:charil 5%, 

ronomina von ego + tu": g0to41@ 

378 goto 118 

388 : 

398 rem ##### tabelle Arsen 
au8 : 

A1B char1,8,1,"sg" 

428 char1,8,2,zn$ 

438 char1,8,3,"nom.“ 

ER TEE N a 
458 char1,8,5," 
468 char1,8,6, 

char1,98,7,"dat." 

ehar1 0,0, rn 

char1,8,9, 

char1,8,18, 

char1,8,11,"abl." 

char1,8,12,zo$ 

char1,8,13,"pl." 

char1,8,14,zn$ 

char1,8,15,"nom."” 

Era, 1 Teen 

char1,8,17,"gen." 

ehsr1,8,18, een 

char1,8,19,"dat."” 

char1,8,28, 

char1,8,21,"akk." 

ch3rlsB,22 "ee een 

char1,8,23,"abl." 

640 : 

rem ###3## hauptprogramm #F####* 


668 : 

ceolor1,2,3:restore y:x=3:getkey 
a$:if a$="2" then goto 718 

6868 for i=1 to 18:read a$,b$ 

698 if i=6 then x=x+2 

788 char1,5,x,3$:char1,22,x,b$:x=x+ 
2:next:getkey a$:goto 118 


718 for i=1 to 18:read a$,b$:if i=6 


32 


un ee 


Deklınation 


then x=x+2 

728 char1,5,x,"":inputav$:char1,22, 
x,"":inputbv$ 

738 ifav$=a$ then char1,19,x,zp$ 
748 ifbv$=b$ then char1,38,x,zp$ 
758 x=x+2:next:getkeya$:goto 118 
768 : j 
778 rem ##*### datazeilen ##tssusıaı 


E. 


= 


7588 : 

798 data 

888 data 

818 data 

828 data 

8380 data 

B48 data 

858 data 

868 data 

878 data 

888 data 

898 data 

988 data 

918 data 

928 data 

938 data 

948 data 

958 data 

968 data 

978 data 

988 data 

998 data 

1iR2BO data 
1818 data 
1928 data 
1838 data 
18489 data 
1858 data 
19868 data 
1878 data 
10888 data 
1998 data 
1188 data 
1118 data 
1128 data 
1138 data 
1148 data 
1158 data 
1168 data 
1170 data 
1188 data 
1198 data 
1288 data 
1218 data 
1228 data 
1238 data 
1248 data 
1258 data 
1269 data 


casa,dies 
casae,diei 
casae,diei 
casam, diem 
casa,die 
casae,dies 
casarum, dierum 
casis,diebus 
casas,dies 
casis,diebus 
lupus,puer 
lupi,pueri 
lupo,puero 
lupum, puerum 
lupo,puero 
lupi,pueri 
luporum, puerorum 
lupis,pueris 
lupos,pueros 
lupis,pueris 
forum, longum 
fori,longi 
foro,longo 
forum, longum 
foro,longo 
fora,longa 
fororum, longorum 
foris,longis 
fora,longa 
foris,longis 
honor,nomen 
honoris,nominis 
honori,nomini 
honorem,nomen 
honore,nomine 
honores,nomina 
honorum, nominum 
honoribus,nominibus 
honores,nomina 
honoribus,nominibus 
opus, tempus 
operis,temporis 
operi,tempori 
opus,tempus 
opere,tempore 
opera,tempora 
operum, temporum 
operibus,temporibus 


data opera,tempora 

data operibus,temporibus 
data portus,cornu 

data portus,cornus 

data portui,cornu 

data portum,cornu 

data portu,cornu 

data portus,cornua 

data portuum,cornuum 

data portibus,cornibus 
data portus,cornua 

data portibus,cornibus 
data turris,mare 

data turris,maris 

data turri,mari 

data turrim,mare 

data turri,mari 

data turres,maria 

data turrium,marium 

data turribus,maribus 

data turris,mario 

data turribus,maribus 

data civis,urbs 

data civis,urbis 

data civi,urbi 

data civem,urbem 

data cive,urbe 

data cives,urbes 

data civium, urbium 

data civibus,urbibus 

data cives,urbes 

data civibus,urbibus 

data ego,tu 

data mei,tui 

data mihi,tibi 

data me,te 

data a me,a te 

data nos,vos 

data nostri/trum,vestri/trum 
data nobis,vobis 

data nos,vos 

data a nobis,a vobis 

rem nachspann =============== 
rem * farbcodes/steuercodes *# 
rn$=chr${ 818) :re$=chr$( 828) 
c3$=chr$( 829) :b1$=chr$( 831) 
rf$=chr$( 146) 

rem ### zeichensatz/graphik * 


fori=-1t048 - 
zn$=zn$+chr$( 184) :zo$=zo$+chr$ 
next:zp$=chr$( 186) 

return 

rem deklination==>=========616 


rem 812277 bytes memory == 
rem 394758 bytes program 

rem 808891 bytes variables 
rem za -= [2-3 Jo om menu 


Boerse 


iB rem boerse 
28 rem 
38 rem 
48 rem 
58 rem 
658 rem 
78 rem 
88 rem 
98 rem 
188 gosub 2398 

118 bs$l1)=" mr.ca$h":kl 1) =1000888 
128 bs$(2)=" johann schilling"”:k(2) 
=BBBH88 

138 bs$( 3) =" 
888 

148 bs$lA)=" 
[14141774] 

158 bs$(5) =" 
289098 

168 bs$(6)=" lord pfund":k( 6) =BHB88 
178 bs$( 7)=" sir bill”:k(7)=68888 
188 ta=9:y=21:s=4:q=32:k=59808:bs$= 
"".v0o18:color®,1:color4,1:j=® 

198 aa$( 1)="(c)copyright by matthia 
s flor 1986" 

2988 aa$l2)="...----.--- taste druecke 
Ns 122 u as num 
218 e$( 1)="anteile kaufen..." 

228 e$(2)="anteile verkaufen” 

238 e$[ 3) =" "1723$+ze$+zo$+z1$+" end 
e "121$+zo$+ze$+z3$+"”.." 

248 ifpethen268 

258 vol8:dimak$t( 16) ‚w( 16) ‚m( 16) ‚,e( I 
6) ,‚t( 16) 
268 fori=1t016:w(i)=188:m[li)=1888:e 
(i)=-®:next 

278 ak$L 1)="aeg-.-------- nu 

288 ak$( 2) ="basf..------- 7 

298 ak$( 3) ="bayer....---- 
388 ak$(4)="bp.-.----»---- S 
318 ak$(5)="bmw....------ e 
328 ak$(6) ="commodore...- 
338 ak$( 7) ="conti-gummi..”" 
348 ak$(8) ="daimler....-- 
358 ak$( 9) ="deutsche bank" 
368 ak$( 18) =-"ibm....-.----- 
378 ak$( 11)="karstadt....- 
388 ak$( 12)="porsche....-- 
398 ak$( 13) ="preussäg.----- 
A888 ak$( 14) ="siemens...-.--- 
A418 ak$( 15) ="thyssen...--- 
Aa2D ak$L 16) ="vw...-- 
438 color4,1:color@,1:color1,2,6:g0 
sub448:goto478 

448 senelr:fory=1t023:char,1,y,25$+ 


neumuenster == 


basic v3.5- af 


c16/116 plus 4 -— 


sem ce -memoonmmonenm nn 


senor peseta":k([ 3) =68® 
monsieur franc"”:k(4)=4 


olaf kronenberg”:k(5) = 


.„."+z5$:next 
458 fori=1t038:char,i,8,z5$:next 


758 


468 Fori-1t038:char,i,23,25$:next:r 
eturn 

478 char, 15,2,"wertpapier" 

4868 char,5,4,".------ TER 


498 char,5,5,"aaqa...aaq..aaag...a0 


aa aaaa” 


588 char,5,6,"@---0Q @...-9Q.--aA RR 


@ 
char',5,7,"aqaa..a...a aaaa...aa 


Q..Qqq” 
6 chary5, Bu 0 


a9 
538 char ,5,9,"agaa...-aaQ..d... A aaa 
g. - gaaaa” 
Ssaa char, 5,10," nur at 
Q"” 
558 char, 18,11, zf$+"CCCEECCECECECEE 
CCCC"+zd$ 
568 char, 18,12,"B.-.-- UCCCCCCCI...- 
SsBy 
578 char, 18,13,"B $$..B"+z3$+ze$tzo 
$+z1$+zo$+tze$+z3$+"B..$$ B" 


588 char, 18,14,"B...-- B..ibm..B.... 
.B" 

598 char, 18,15,;"B-....B aktie B-.-- 
.B” 


688 char, 18,16,"B $$..B"+z2$+tzm$+tzn 
$+rn$+z1$+rf$+zn$+tzm$+z2$+"B. .$$ B" 
618 char, 18,17,"B...-- JECCCEEEK...- 
„B® 

628 char, 18,18, ze$+"CLCCCCCCCEECECE 
CCCE"+zs$ 

638 Foru=1t0o2:d=8:h=-1:fort=1t0508®: 
next 
648 
658 
668 
1;1 
678 char,3,28,aa$lu) . 

688 fort=1t018@:next:ifh=6andu=2the 
nfort=1t01898:next 

698 ifh=6andu=1andd=1thengosub2340 
788 ifh=Bandd=1then?728 

718 goto6AB 

728 next 

738 sound1,944,5:sound1,953,8 

748 getkeya$ 
gosub 1428:d=® 
senelr:color®,7,6:color4,15,® 


ifd=1thenh=h-1:ifh<dthenh=® 
ifd=@thenh=h+1:ifh>6thend=1:h=6 
colori,2,h:ifh=Bandd=1thencolor 


768 

778 printlb$rn$"....oktober EI aa tee 
..auf dem....eigene.." 

788 printlib$rn$" aktie.....--- wert. 
...markt..- -r- anteile " 

798 printlb$rn$"....--------r- (dm). 
ur SEN er ern SE)..." 


888 Fori=1t016:char, 1,i+3,1b$:print 
using HHHHHHHHHHHHHE" , ak $ Ci) 
818 next 


34 


Be FE re N rer Bat an ln SE Ir Kart ER ad nn nn ee 


828 tg=-d:fori=-1to16:t(i)=int(rnd(B) 
*3) :tg=tg+t(i) 

838 iflt(i)=Bort(i)=1)andw(i)>5ßthe 
nw[l i)=w(i)-int(rnd{ 1) #38) +28 

848 ift(i)=2thenw( i)=w(i)+int(rnd(1 
) #38) +28 

858 
+1 
868 
878 
858 
898 
988 
918 
928 
938 
948 
958 
$ 
968 char, 22,22,rn$+bk$+"konto:":pri 
ntusing "AHHHHHH" ;K; :print” dm"rf$ 
978 gosub1i319 

988 do:geta$ 

998 ifa$=cA$theny=-y+1:sound1,944,2: 
ify>23theny=21 

1888 ify>2ithenchar,1,y-1,wh$+rf$+te 
$ty-21) 

1818 ify> Sithanahar, 1,23,wh$+rf$+te$ 
(3) 
1822 
1838 
1948 


printhe$1b$rn$ta 
ifta>31then 1958 
ifk<-1098988then 1688 
iftg>16thent$="steigend" 
iftg<16thent$="fallend " 
iftg=-16thent$="stabil..” 

char, 1,21,wh$+rn$+e$( 1)+rf$ 
char, 1,22,e$(2) 

char, 1,23,e$(3) 

char, 22,21,rn$+bk$+"tendenz:"”+t 


char, 1,y,rn$+wh$+te$( y-28)+rf$ 
ifa$=chr$( 13) thenx=y-28:exit 
loop 

1858 char, 22,22,rn$+bk$+"konto:":pr 
intusing" #AHHAHAH#" ;k; :print” dm"rf$ 
1868 ifk<ßthenk=k+int(k/2) 

19878 ifx=3then828 

1888 do:getb$ 

1898 ifb$=cA$thens=s+1:sound1, 948,3 
:ifs>19thens=4 

1188 ifb$=chr$( 13)thenz=s-3:exit 
1118 ifs=4thenchar, 1,19,1b$+ak$( 16) 
:e=1:w=1:m=1:i1=16:gosub 1328:gosub13 
58:gosub 1388 

1128 ifs>4thenchar, 1,s-1,1b$+ak$( s- 
4) :e=1:w=1:m=1:i=-s-4:gosub1328:gosu 
b1359:gosub 1388 

1138 char,1,s,rn$+ak$( s-3) :w=1:m=1: 
e=1:printrn$; :i=s-3:gosub1328:print 
rn$; 

1148 gosub135B: printrn$; :gosub138® 
1158 loop 

1168 char,22,23,bk$+"wieviele:" 
as$:q=32 

1178 q=32:do:char,q,23,rn$+"?"+rf$: 
getkeya$:sound1,944,5:sound1,953,5 
1188 ifa$=chr$( 28) andg>32thenchar,g 
‚23,”" ":as$=left$las$,q-32) :q=q-1:g 
0ot0o1178 


:get 


next:y=-21:w=B:e=8:m=-8:x=-8:ta=ta 


35 


1198 ifa$=chr$( 13) thenexit 

1208 ifa$<"8"ora$>"9"then1i178 

1218 char,q,23,a$:ifg<36theng=q+t1l:a 
s$=as$+ta$ * 

1228 loop 

1238 an-vallas$) :ifx=1andan>m( z) the 
ngetas$:goto117® 

1248 ifx=2andan>e( z)thengetas$:goto 
1178 

1258 ifx=1thene( z) =e( z) +tan:m( z) =m( z 
)-an:k=k-w(z)*an 

1268 ifx=2thenefl 2) =e[lz)-an:m(z)=m(z 
J)+tan:k=k+w( z}*an ° 

1278 char,1,s,1b$+ak$( s-3) :w=1:m=1: 
e=1:i=s-3:gosub1328:gosub 1358B:gosub 
1389 

1288 char,22,23,":2 2: 0.0.0200 
1298 goto98BB 

13808 end 

1318 fori=1t016 

1328 char, 14,i+3,1b$:printusing"AA# 

#" ;w(i) 

1338 ifw=ithenreturn 

1348 next:foeri=1t016 

1358 char,22,i+3,1b$: printusing"#HH 

#" ;m(i) 

1368 ifm=ithenreturn:elsenext 

1378 fori=1t016 

1388 char,31,i+3,1b$:printusing"”### 

#" ;e(i) 

1398 ife=ithenreturn 

1488 next 

1418 return 

1428 color1i1,2,6:gosub448 

1438 a$(8)=rn$+" sind die regeln be 

kannt ? (j/n) "+rf$ 

1448 a$( 1) ="durch boersenspekulatio 

n versuchen” 

1458 a$(2)="sie moeglichst vieı gel 

d zu erwirt-"” 

1468 a$(3)="schaften,indem sie akti 

en guenstig” 

1478 a$(4)="kaufen und wieder absto 
ssen.” 

1488 a$(5)="aber achtung! 
verzinsung” 

1498 a4 6) ="der schulden um 58% koe 

nnen sie" 

1598 BRL ZI FT IRIERE bankrott de en s 
ie haben nur” 


bei einer 


1518 a$(8)="einen monat zeit...tast 
e druecken!"” 

1528 fort=B8to8 

1538 h=-1:d=® 

1548 ifd=iandh>dthenh=h-1 

1558 ifh=@Bandd=1thencolor1,1:g0ot0o15 
88 

1568 ifd=dthenh=h+1:ifh>6thend=1:h= 


6 


1578 color1,2,h 

1588 char,3,12,a$(t) 

1598 forr=-1t01@@:next:ifh=6thenforr 
=1t0188@:next 

1688 ift=Bandh=6thengosub 1648 

1618 ifh<=Bandd=1Ithennext:else1548 
1628 getkeya$:sound1,944,5:sound1,9 
53,5 

1638 return 

1648 poke239,8:getkeyb$:sound1,944, 
5:sound1, 953,5 

1658 ifb$="j"then?76® 

1668 ifb$="n"thenreturn 

1670 goto1648 

1688 printel$:color4,1:color®,1:col 


or1,8,6 

1698 print"”.....- "en$". a. "IPB" 
..ihre bank hat ihnen” 

1788 print”. - ==: "pn$":.."ETS 

17198 print"... ..-- "TNS a: PRTID ei 
..den geldhahn zuge-" 

1728 print"... =:»- "rn$n.x."2T$ 

1738 printrn$"....------ze..- "rf$" 

dreht.sie haben" 

1748 printrn$"”......-.»-..---- a 

17508 printrn$"... .- --=+-- +... "rf$ab 
st(k)"”dm schulden!" 

1768 print": ..--- "rn$"..."rf$ 

1278- print" ..4=+- rn se RTS 2. 
..die physische belast-" 

1788 print"....-- “ng”: -2TR 

1798 print"”....-»- ee Ser) See 
..ung war zu gross fuer" 

1898 print"... --» "rn$”.2."rT$ 

I8I0 print” sera a: alt 1 2 Sa: 2 2 Sakerererge 
..sie.sie waehlten den" 

1828 print"”...»-. ANNE" Sa EER ra 
a rege "yum$" "ym$” "ym$ 

1838 print"...... "TE aa EES nn = 
..freitod..B B B” 

1848 print"...... "rn$"...”"rf$ 

1858 print"...--- "rn$"..."rf$ 

1868 print"..---- "rn$”"..."rf$ 

1878 print"...... "rn$”"..."rf$ 

1888 print"”....-- "rn$"..."rf$ 

1898 fort-1t01898:next 


1988 restore:fort=1to11:reada,b,c:s 
oundi,a,b:sound2,at5,b:forr=Itoc:ne 
xt:next 

1918 data262,35,558,262,38,1,169,25 
‚310,262,48,120,383,38,120,345,25, 1 
48,345,35, 128 . 
1928 data262,30,4580,262,35,1,169,3® 
‚3190,262,6®,1 

1938 fort=1t01@8988:next:char1,32,23, 
rn$+">return<"+rf$:geta$:ifa$<>chr$ 
( 13} then 1938 

1948 sound1,944,5:sound1,953,5:pe=] 


:goto188 r 
1958 color4,6,3:color®, 1,3:i-8:m-B 


1968 printrn$e1$gr$c4$" ### die bes 

ten boersenspekulanten: ##: "rf$ 
1978 Ford=1to2:char, 1,3#2+1,"" pr 

using "AHHHHHRHRHHEHHEN Sb s$ Ci) „KL 
i)," dm":next 

1988 if j=1thengosub2298 

1998 ifj=1then2858 
2808 ifk>k( 7) then2888 
2818 gosub2288 

>2928 print:printe4$” 
ie haben zu schlecht - 

2838 printcd$"” gewirtschaftet. folg 
lich duerfen sie” 

28A8 printc4d$"” sich 
eintragen...” 

2358 char ‚31,23, rn$+">return<"+trf$: 
=8 

Iasa getkeya$:sound1,944,5:sound1,9 

53,5:ifa$<>chr$( 13) then286® 

2878 pe=1:goto1B® 

2888 Forr=-58#t01888stepS:soundl,r, 1 

:next | 

29098 print:printc4$" sie sind legen 

de geworden. sie sind" 

2188 printc4$" einer der besten boe 

rsenspekulanten!" 


tut mir leid s 


“rn$"nicht"rf$" 


2118 form=1t07 

2428 ifk=>k(m)theni=m:goto2148 
2138 next 

2148 char, 1,22,"ihr name ze 

2158 Form=-7toi+1step-1:k(m) =k(m-1): 
bs$( m) =bs$(m-1) :next 

2168 kli)=k 

2170 bs$=" ":x=12:do 

2188 char,x,22,rn$+"*"+rf$ 

2198 ifx<12thenchar,x,28," "ıx=x+t1: 
goto2188 


2288 getkeya$:sound1,944,5:sound1,9 
53,85 

2218 ifa$=chr$( 28) thenchar1,x,22," 
".bs$=left$lbs$,x-12) :x=x-1:goto218 
8 

2228 ifa$=chr$( 13) thenexit 

2238 char,x,22,a$:bs$=bs$+a$:ifx<29 
thenx=x+1i:elseexit 

2248 loop 

2258 bs$(i)=bs$ 

2268 j=1:g0oto1958 

2278 Forw=1t048@:next:forw=1to8:vol 
B-w:forv=1t049:next:next:vol8ö:retur 
n 

22858 forr=1088t058@8step-5:soundl,r, 
1:sound2,r+1,1:next:return 

2298 restore2328:forr=1to12:reada:i 
fr=12thensound1,3,598:sound2,a+1,5®: 
gosub2278:goto2318 

23988 sound1,a,18:sound2,a+t1,18 
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TE ET Te > 


Boerse 


2318 forg=-1t015*18:next:next 

2328 data881,881,917,911,897,881,8B6 
4,664,554,834,854,818 

2338 return 

2348 restore2378:forr=-1t048:reada:i 


fr=48thensound1,3,58:sound2,a+1,53: 


gosub2278:g0ot02368 
2358 sound1,a,18:sound2,a+1,13:forg 
=1t011*15:next 

2368 next:return 

2378 data784,739,784,739,739,778,79 
8,8190,834,834,818,834,854,854,864,8 
54,864,881,881,897 

2388 data881,897,911,911,917,917,91 
1,917,911,897,897,897,897,881,864,8 
54,854,834,854,818 
2398 rem nachspann 
2488 rem * farbcodes/steuercodes * 
2418 wh$=chr$( 885) :c4$=chr$( 817) 
2428 rn$=chr$( 818) :he$=chr$( 819) 
2438 gr$=chr$( 838) :bk$=chr$( 144) 
2448 rf$=chr$( 146) :c1$=chr$( 147) 
2458 1b$=chr$( 154) 

2468 rem *##* zeichensatz/graphik * 
24978 z1i$=chr$( 162) 

2488 z2$=chr$( 163) :z3$=chr$( 164) 
2498 z5$=chr$( 166) :zc$=chr$( 173) 
25808 zd$=chr$( 174) :ze$=chr${ 175) 
2518 zf$=chr$( 176) :zm$=chr$({ 183) 
2528 zn$=chr$( 184) :zo$=chr$( 185) 
2538 zs$=chr${ 189) :ym$=chr$( 219) 
2548 return 

25508 rem boerse =-====-=--=-========16 
2568 rem 812277 memory == 
2578 rem 898278 program == 
2588 rem 888343 variables 
2598 rem 3888878 arrays 
2688 rem BBBBRB8 strings == 
2618 rem 892143 fre(B) 
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ROBERT 


Robert, der Roboter, hat den Auftrag erhalten, auf 
dem Planeten ‚„Grimpel“ Steinberge anzustreichen. 
Dafür hüpft er von Steinberg zu Steinberg, wobei er 
den jeweiligen Berg anmalt, was sich an dessen verän- 
derter Farbe erkennen läßt. Aber die Einwohner des 
Planeten, die „Nippelzipps‘‘, wollen ihn daran hin- 
dern und hüpfen von den Bergen herunter. Robert 
darf sie nicht berühren oder von einem Steinberg her- 
unterspringen, sonst verliert er ein Leben. Von Level 
zu Level erhöht sich die Anzahl der Nippelzipps um 
einen. : 

Ein Tip: Wenn Robert auf dem Steinberg steht, auf 
welchem er auch zu Beginn eines Levels erscheint, 
können die Nippelzipps ihm nichts anhaben und 
man kann eine Pause einlegen. 

(Zu Seite 38) 


POISON 


Aufgabe des Spielers ist es, sich vor der Vergiftung 
durch ein Gas, das sich in einer Flasche, die sich in 
der Mitte des Bildschirmes befindet, zu retten. 

Diese Flasche ist von einer Mauer umgeben. Ein Ball 
schlägt laufend Steine aus der Mauer. Wenn der Ball 
die Flasche zerschlägt, breitet sich das Gas aus und 
der Spieler stirbt. Damit das nicht geschieht, kann 
der Spieler, der seinen Schläger um die Mauer bewegt, 
den Ball zurückschlagen, ohne daß ein Stein aus der 
Mauer entfernt wird. Nach einer gewissen Zeitspanne 
erreicht der Spieler das nächste Level, bei dem sich 
die Zeitspanne erhöht und somit das Spiel schwieri- 
ger wird. 

Steuerung: A = Unten; Q = Oben; O = Links; 

P = Rechts 

Die Tastaturabfrage in den Zeilen 70-100 kann je- 
doch auch leicht für den Gebrauch eines Joysticks 
abgeändert werden. 

Das Spiel verfügt über eine hohe Geschwindigkeit so- 
wie etliche beeindruckende Grafik und Soundeffekte. 
Auch die Spielidee ist ungewöhnlich: Während bei 
zahlreichen Breakout-Varianten Steine aus einer 
Mauer zu entfernen sind, sollen bei Poison möglichst 
alle Steine erhalten bleiben. 

(Zu Seite 42) 


MINI-ROULETT 


Mit diesem Spiel können Sie vorher erproben, ob Sie 
ein Glückspilz oder ein Bankrotteur sind, bevor Sie ein 
richtiges Spielkasino betreten. Diesem Spiel liegen im 
Wesentlichen die Original-Spielregeln des Rouletts 
zugrunde. 

Nach dem Laden starten Sie das Spiel mit RUN. Wei- 
tere Bedienung erfolgt mit der SPACE-Taste. 

Dieses Spiel läuft nur auf einem C16 mit Speicher- 
erweiterung. 

Erklärung der Begriffe des Spiels: 


Manque Alle Zahlen von 1 — 12 
Passe Alle Zahlen von 13 — 24 
Pair Alle geraden Zahlen ohne die Null 
Impair Alle ungeraden Zahlen ohne die Null 
m l. Drittel (1—8), 2. Drittel (9-16), 
3. Drittel (17-26) 
-1, «2, +3 1. Reihe, 2. Reihe, 3. Reihe 
(Zu Seite 45) 
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robert 
{p) 12/86 commodore welt == 


48 rem 11/86 by r. dillinger == 
s8 rem neusaess == 
68 rem == 
78 rem basic v3.5° == 
88 rem c16/116 plus4 == 
98 rem 


id rem 
28 rem 
38 rem 


(c) 


iD8 poke56,59:poke55,8:clr 

118 gosub 2548 

128 hi=-59:goto1848 

130 a=x:s=y:jo=joyl 1) :ifjo=Btheny=y 
=IERTR-I 

148 ifjo=6theny=y+3:x=x-3 

158 ifjo=2theny=y-3:x=x+3 

168 ifjo=-Atheny=y+3:x=x+3 

178 ifx>39orx<Bory>21orpeek( 3872+4B8 
*y+x+48B) =93thengoto58B# 

188 chari,x,y,ye$+"VW":chari,x,yt1, 
198 ifa<>xthenchari,a,s,"..":charl, 
a re 

288 bi=peek( 3072+A4B*y+x+BB) :ifbi=92 
tııengot 0238 ; 

218 ifbi=-32thengoto588 

228 goto268 

238 sound1,6®88, 18:chari,x,y+2,bl$+z 
B$+z8$:sc=sc+1:char1,17,1,cy$+str$( 
sc) 

248 u=u+1:ifu=28thengoto998 

259 remtt#stteeett gegner FHrtanEE 
zener 

268 forn=1tole:ifm(n)=Bdthenm(n)=1:r 
(n)=int(rnd(8) #6) :flag=1 

278 ifflag-Ithenflag=®:onr({n)goto3!1 
0,330,398,419,43@:ifr(n)=@thengoto2 
98 ‚ 

288 onr({n)goto329,348,400,4290,4AB:i 
fr{n)=®thengoto388 


298 c{n)=18:v{n)=1 

388 goto358 

318 c({n)=7:v{n)=16 

3298 goto358 

338 c{n)=4:v{n)=19:goto5S88 

348 goto358 

358 sound2,c({n)*#48,3:ifv(n)>39ore(n 


)>24thenchar1!,v(n)-3,c(n)-3,"..":m( 
n)=®:nextn:goto138 

368 color1,3,5:chari,v(n),c({n),yo$+ 
aa$:chari,v(n)-3,c{n)-3,"..":c(n)=c 
(n)+3 

378 vCn)=v(n)+3:ifeln)=28thenm( n)=® 
: char 1,91 03-3, 19, 7 

388 nextn:ifn=le+1thengoto13® 

398 c{n)=4:v(n)=19:goto548 

ABB goto45®B 


418 c{n)=7:v({n)=22 
428 goto4508 
438 c(n)=1i8:v(n)=25 
448 goto458 


458 sound2,c(n)#48,3:ifv({n)<®Borc(n) 
>24thenchar1i,v({n)+3,c{n)-3,"..":mUn 
)=8:nextn:goto13® n 

A68 color1,3,5:char1,v({n),c(n) ,yo$+ 
aa$:charli,v(n)+3,c(n)-3,"..":c{n)=c 
{n)+3 

478 vCEn)=v(n)-3:ifeln)=28thenm(n)=® 
:charv({n) +3,17,"”.." 

488 nextn 

498 ifn=le+ithengoto138 

528 color1,3,5:chari,v({n),c{n),yo$+ 
aa$:c(n)=c(n)+3:v({n)=v{n)+3 

518 ifn=le+ithengoto13® 

528 nextn 

538 goto138 

5a8 color1,3,5:char1i,v(n),c({n),yo$+ 
aa$:c(n)=c(n)+3:v{n)=v(in)-3 

558 ifn=le+ithengoto138 

568 nextn 


578 goto13® 
5BO remtrtrneenereEEERERRERE 


sauer 

598 remtrsraseenes tot Bremen 

zur 

608 rem EEE 

zur 

618 scnelr 

628 li=li-1:ifli=Bthengoto?7B8 

638 color®,3,3:color4,3,3 

648 color1,2,7:char1,9,12,"roboters 
remaining:”:printli 

658 forf=1to1d 

668 sound3,8B8B, 18 

678 sound1,int(rnd( 8) #288) ‚5:sound2 
‚int(rnd(8)*2),18 

658 nextf 


698 goto1678 
788 rem HHRRHRRRRHRRRRRIRRHRERENRTR 


serH 

718 remftsreererenet ende Frrtrteter 
zurt 

728 rem RR 
wer 

738 en$=g5$+gq5$+yq$+yq$+yq$+left$laq 
r$,27)+yq$+"...-....... "+yq$ 

748 en$=en$+tleft$(qr$,27)+yq$+" gam 
e over "+yq$ 

758 en$=en$+left$lqr$,27) +yq$+".... 


ESEL "+yq$ 

768 en$=en$+left$(qr$,27) +95$+q5$+y 
q$+yq$+yq$ 

778 colorß,1:colorA4,1 

788 char1,8,22,"”..-.- =... ...- UCCI... 


um zum titelbild..... 
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0 ne 2 2 .0® 20 ame Due sl ui U dm nun UL 3 Lu wu suZ u u uf Cr Aue 


Robert 


BUND IDTENE "ee ..JCCK...zuruec 
kzugelangen"; 

818 g=int( rnd(B) #15) +2 

828 g=int({rnd( 9) #27) 

838 w=int( rnd(B) #17) +1 

848 colori,g,5 

858 chari,q,w,en$ 

868 sound1,288,int(rnd( B) *5) :ifsc<h 
ithensound2, 18,3 

878 color1,2,7 

888 ifsc>=-hithengosub918 
getke$:ifke$="U"thengoto938 
gotoB18 
hi=ssc:color1,2,7:char1,8,8,f1$+ 
TER TEST new high score"”+fo$:s 
ound2, 888,5 


929 return 
938 rent mmHg 


AuRtR 
948 rem##** 
En 


950 remftrsrnnegeeeeeeneneieeeneenn 


#752: neustart BERUFEN 


zart 
968 vol8ß:flag=-® 
978 sc=B 


988 goto1B4B 
998 remtrrreereeireecnetecHErHiEnnnn 


arte 
1808 rem#*###txr ]Jevel geschafft **#* 
E22 2.22 

1818 rem RHEIN 
22223 
1828 
1838 
1848 
19858 
1868 


senclr 

le=le+1:ifle<9thenwl=le 
ifle>9thenle=9:w1=wl+1 
color@,1:color1,2,7:colorA4,1 
char1,12,6,"goto next level" 
1878 r=int(rnd(8)*15)+2:color1i,r,4 
10888 char1,8,9,zb$+z1$+z1$+z1$+z1$+ 
z1$+z1$+z1$+zg$ 

1298 char1,8,18,z4$+" 
rintwl-1 

11908 char1,8,11,zr$+z2$+z2$+22$+z2$ 
+z22$+z22$+z2$+zt$ 

4118 l=sint(rnd( 8) #15) +2:color1,1,4: 
ifl=rthengoto1118 

41128 char!,28,9,zb$+z1$+z21$+z1$+z1$ 
+z21$+z1$+z1$+zq$ 

1138 char1,28,19,z4$+" level "+z3$: 
printwl:char1,28,11,zr$+z2$+z2$+z2$ 
+z2$+22$+22$+z2$+zt$ 

1148 color1,8,5 

1158 forf= =8t035:charl,f, 13,7 VW":ch 
ari,f,14, xy" 

1168 sound], f*2,5:sound?2, int[ rnd( B) 
#3) ,18: nextf 


level "+z3$:p 


1178 restore1198:forf=1t07 

1188 readno:sound1,no*1®,18:sound2, 
5,2:nextf 

1198 data11,14,11,14,12,16,14 


1288 goto1678 
12198 remftHracRsereeneeeeeereeeenn 


KHHRH 
1220 remärsaassee# titelbild #rre## 
FFRARH 
12389 remisseneeenenenereneennnnneee 
KERSH 


1248 scnclr:f=7 


1258 color@,1:color4,1 

1268 color1,f,4 

1278 gosub 1638 

1288 char1,8,3,95$+".."+q5$+q5$+yq$ 

+yq$+".."+q5$+yq$+" "+q45$+”".."”+g5$ 

1298 printyq$".."yq$"”..."yq$"..."yq 

$".."yq$"..."yq$".."ya$ya$"”. "yqa$ 

ya$".."yq$"”..... "yq$ 

13088 printyq$".."”yq$"...."yq$" "yq$ 

"...."yq$".."yq$”.."ya$yq$"”....- "yq 

$yqa$”" "yq$"...-.- "ygq$ 

1318 printyq$yqg$yq$"”..--- "yq$"” "yq$ 

"...."ga$".."q4$"..."ya$yq$yq$"”.-.-- 

."ya$yqa$yq$ 

1328 printyq$".."yq$"”...."yq$"” "yq$ 
..."yq$"”..."yq$".."yq$"”.....- "yq$"” 
 yg8" 0: ya8° "ugs 

1338 printyq$"..."yq$".."yq$"”..."yq 

5"... 348” .::. 498 "g5$yq$". "ygS” 
."yq$"..."yq$” "yq$ 

1348 printyg$"...."qg5$yq$yq$".."q4$ 

""yg$" "g5$".."yq$"...."qa$" "yasy 

q$%; 

1358 char1,98,11,"..-..--- 00.000000. 


1368 gosub 1568 

1378 colnr1,8,6:char1,9,1, 
rsoft presents” 

13882 color1,2,6 

1398 char1,18,18,f1$+"UCCI":print 
1488 printtab( 18) ;f1$"Bf1B = spiels 
tart"” 

1418 printtab( 18) ;F1$"JCCK" 
1428 printtab( 18) ;F1$"UCCI" 
1438 printtab( 18) ;f1$"Bf2B = 
nleitung"” 

1448 printtab( 10); F1$" JECK"” 
chart; 9, 24," saure 


"dillinge 


spiela 


ifflag=-2thenflag=-d:return 
g=-g+3:ifg=4dtheniff=7thenf=3:g 
oto1498 

1488 ifg-48thensound3, 18, 188: iff=3t 
henf=7 

1498 ifg=-4A8thensound3, BB, 188:g=B:g 
ot0o1268 
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Robert 


1588 
1518 
1528 
1538 
1548 


gosub 1568 
ifg>188theng=37 
getke$:ifke$="U"thengoto1678 
ifke$="I"thengoto2308 
sound!,g*18,28:sound2, 1,28 
1558 goto147®8 ; 

1568 sound1,g*5,29:sound2,1,28:flag 
=2:co=co+t1:ifco=17thenco=2 

157B colori,co,A 

1588 char1,8,13,”..(c) copyright 19 
86 by dillingersoft" 
1598 print:printc4$"” 
y robert dillinger" 
1688 gosub 1638 
gosub 1388 
return 
forgq=-16t024 
char1,8,q," 


NER FEERE written b 


naar aan. 


return 
remtsreaseneeeeereReeenenenene 
Krutr 

1680 remt*tr#rr#rr## spielplan *F##*** 
wert 

1698 remittnrenereereeeereetitenenen 
zurnr 

1788 color®@,1 

1718 colorA4,1 

1728 senelr:w=d:q=8:forf=28to2step- 
3:w=w+1:q=g+3 

1738 p=®:fort=1tow:chari,f+t*6-B,q+ 
2,a$:nextt:nextf- 

1748 printhe$cy$"” lives:"; 

1758 printli 

1768 char1,1,1,"level:” 

1778 printle 

1788 char1,28,8,"high-score:" 

1798 char1,28,1,str$(hi) 

18088 char1,17,8,"score:" 

1818 char1,17,1,str$(sc) 

1828 x=19:y=21:u=8:vol8:flag=1 


1838 goto138 
1848 remis HR ERENR 


zaren 

1850 remttreeeneneet anfang FHRFHH# 
zarer 

1868 rem 
zaxrıeı 

1878 scncelr:vol8 

1888 restore2248:n=@:forf=1to4:read 
co$ i 

1898 Forg=1tolen( co$) step2:by$=mid$ 
(co$,g,2) 

1988 by=dec(by$) 

1918 poke15328+n,by:n=n+1:nextg:nex 
tf 

1928 poke65298,, peek( 65298) and251 


2288 


1938 poke65299,68 

1948 sysdec( "3be®") 

1958 restore2888:forf=86*8t096*8-1: 
readby 

1968 poke 15368+f,by:nextf 

1978 forf-97*8t098*8-1:read by 

1988 poke 15360+f,by:nextf 

1998 Forf-99*8t0182*8-1:read by 
2888 poke 15368+f,by:nextf 

2818 a$=b1$+"Z"+1g$+yn$+yn$+b1l$+ym$ 
2928 le=1:1i=-3 £ 
2838 key1,"U":key2,"I"” 


28AB goto1218 
2958 remtt#rtueneneeeneEHEREERE 


KRHRR 

29698 remttrrFrtrr 
KuarH 

29798 remttteeusetuneoe re 
ara 

2088 data7,5,7,7,1,63,47,39 

2098 data224,1698,224,224,128,252,24 
4,228 
2128 
2118 
2128 
2138 
2148 
2) 
2158 
2168 
21798 
5,255 
2188 data@,255,255,255,255,255,255, 
1%) 

2199 data255,255,255,255,0,0,8,8 
2200 data240,249,2408,248,240,248,24 
0,248 


2218 data15,15,15,15,15,15,15,15 
2220 remtttreneeeeteeeneete 


zeichen-datas *#**#* 


data35,35,35,6,12,12,12,252 
data196, 196, 196,96,48,48,48,63 
data®,9,1,3,15,63,255,® 

data®,8,128,192,240,252,255,® 
data,255,255,255,255,255,255, 


data32,31,25,25,31,31,32,64 
data4,248, 152, 152,248,248,4,2 
data255 ,255,255,255,255, 255,25 


aAnmun 


2238 rem#**##=r### maschinencode **** 
E22 2.22 

2248 rem*** (zeichensatz auslesen ) 
yarır 

2259 remttrtteree retten 
HER8 
2268 

2278 


data"a2989bd49B489d49B3c" 
data”bd88d1948B3db 4A” 
data"d2949883ebdBB439d4” 


data”"883fe8ddeS6A"” 
remft#errgeeanererierigereent 


2298 
2388 
aerH 
2318 
zart 
2328 
arur 
2338 
2348 


remtrrrrtaant anleit ung FEHRER 


r emfrrFrrarrteteireeeHEEiEERHENN 


senclr 
char1,16,8,f1$+1g$+"robert"+fo 
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Robert 


$ 

2358 char1,3,3,g3$+”"robert, 
fsroboter, ..."+ye$+"”VW" 
2368 print:printg3$"....der auf mal 
erarbeiten...... "veg"xY" 

2378 printg3$”..spezialisiert ist, 
muss auf" 

2388 print"...dem planeten grimpfl 
alle" 


ein hil 


2398 print"...steinberge anstreiche 
n" 

2488 print"...aber einige nippelzip 
NS. 1.04 "re$yo$aa$ 


2418 printg3$”...wollen ihn daran h 
ändern.” ' . 

2428 print:print"du musst robert he 
ilfen und ihn von einem" 

2438 print"steinberg zum anderen st 
euern, damit er" 

2448 print"..den jeweiligen steinbe 
rg anstreichen" 

PHS0. DIIWE" 2 2 sc een ee kann. 
2468 print"”er darf natuerlich nicht 
mit den nippel-"” 


2478 print"”...zipps zusammenstossen 
oder von den" 

2480 BEINE" - ; 2:2: 20: plattformen fa 
l1len." 

2498 print:print"..... steuerung: jo 


ystick in port 1” 

2588 color1,2,7 

2518 char1,12,24,rn$+"taste druecke 
n"+rf$ 


2528 getkeyke$ 

2538 goto1218 

2548 rem nachspann ==========-=-=-=-=-= 
2558 rem * farbceodes/steuercodes * 
2568 c4$=chr$( 817) :rn$=chr$( 818) 
2578 he$=chr${ 819) :re$=chr$( 828) 
2588 c3$=chr$( 829) :b1$=chr$( 831) 
2598 f1$=chr${( 138) :fo$=chr$( 132) 
2688 c2$=chr$( 145) :rf$=chr$( 146) 
2618 1g$=chr$( 153) :g3$=chr$( 155) 
2628 ye$=chr$( 158) :cy$=chr$( 159) 
2638 rem *## zeichensatz/graphik * 
2648 zB$=chr$( 161) :z1$=chr$( 162) 
2658 z2$=chr$( 163) :z3$=chr$( 164) 
2668 z4$=chr$( 165) :zb$=chr$( 172) 
2678 zq$=chr$( 187) :zr$=chr$( 188) 
2688 zt$=chr$( 198) :ym$=chr$( 219) 
2698 yn$=chr$( 228) :yo$=chr$( 221) 
2788 yq$=chr$( 223) :aa$=chr$( 255) 
2718 rem ######### zeichenfolgen * 
2728 for q=1 to 48 

2738 qr$=qr$+c3$:next q 

2748 for q=1 to A:q4$=q4$+tyq$:next 
2750 q5$=q4$+yq$ 

2768 return 


rem 
rem 
rem 
rem 
rem 
rem 
rem 


811887 
889171 
299392 
289169 
DBHH2H» 
8981756 


Hallo, C-16-Freunde. Wer will 
f. dieses System Programme 
tauschen? Habe ca. 120. 
Schickt Eure Listen an: Mi- 
chael Vogtmann, Eichendorf- 
str. 37, 8800 Ansbach. Tel. 
0981/84501. 


Verk. C-16+Datakassette + 
Joystick + Adapter + Litera- 
tur = Software + Zeitungen, 
z.B. Spacepilot, Bongo Const. 
Set. Preis nicht unter DM 
250,-, Tel. 02106/3571. 
*C-16 *C-16 

Verk. Olympiade, Rockman 
u. Berks zus.f. DM 20,-, 
verk. Yie Kung Fu f. DM 
25,— !! (Neu!) verk. Kung 
Fu Kid f. DM 15,—. Klein 
Lars, Ostheerener Feld 4b, 
4708 Kamen Heeren. 

Verk. C-16/64 Ram 1/2 Jahr 
alt, f£ DM 150,—-, „Turbo- 
BAse”’ (Datei) „Turbo- 
Base” (Datei) „Turbo’-Text” 
(Textverarbeit.). Beides origi- 
nal-Tape je DM 18,-, Tel. 
0421/894435. 

Achtung, BTX-Freaks. 
Nagelneue Blaupunktanlage + 
Decoder + Farbmonitor zu 
verk. Preis: VB. DM 3.500,—, 
Tel. 08382/28727. ab 18.00 
Uhr. 


* Achtung!!! *Plus 4 User und 
0. C-16/116/64K. Wer 
tauscht Erfahrung, Spiel + 
Anwenderprogr. mit 50-jähr. 
Anfänger? Bitte meldet Euch 
mit Telef. Ich rufe abends zu- 
rück!! . Jürgen Braunroth, 
Moordorferstr. 30, 3057 Neu- 
stadt 1. 


Suche Anwender des Progr. 
„BZ-Homöopathie”’” zwecks 
Erfahrungsbericht. Bericht 
bitte an: Lothär Baur, Blü- 
cherstr. 34, 1000 Berlin 61. 


Farbmonitor. Bitte Angeb. 
an: K. Etscheid, Niederbrei- 
denbach 18, 
brecht. 
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5223 Num-. 


memory == 
program == 
. variables == 
arrays mi 


Achtung! 

C16+116!P4 User, riesige 
Auswahl v. Anwender u. 
Spielprogr. verk. u. tausche! 
Infos. bei Ulf Peters, Gablon- 
zerstr. 11, 2351 Trappen- 
kamp Tel. 04323/4133. 
Achtung! An alle Commodo- 
re-Freunde. Wegen Umstieg 
von C 128 auf IBM, verk. alle 
meine Progr. u. Spiele. Billig! 
Meldet Euch. C-64, C-128 u. 
CP/M-Progr. 2 Listen bei mir 
kostenlos. Jack Müller, Hüx- 
nerstr. 339, 4220 Dinslaken. 
Suche Maus, Light pen (mit 
Adapter), Zehnerblock, Tur- 
bo Tape-Modul, Floppy u. 
Anwender-Progr. bzw. Lern- 
progr. u. Programmierspra- 
chen. DFÜ-Nr. f. den C16, 
Info. an Thorsten Belker, Tel. 
Wuppertal/474884. 

!!I C-16 User!!! 

Suche C-16 Lern-/Anwender- 
Vokabelprogr. Spiele auf Kas- 
sette + Anschluß an C/16 C/ 
116/P4 User-Clubs. Angeb. 
Thomas Galster, Grüne Au 3, 
7410 Reutlingen 27. 

Suche Inf. zur Anwendun 
des CP/M Modus beim C 128 
sowie Progr. f. den 128er im 
GP/M-Modus. Schreibt bitte 
an: Ide Claudia, Marktred- 
witzerstr. 20, 8598 Walders- 
hof. 

Wer hilft mir weiter? 

Suche C-64 Software, leider 
keine Tauschmögl. vorhan- 


„den, zahle jeden vernünftigen 


Preis, Antwort 100 %. Zuverl. 
User gesucht. Detlef Engels 
Langenbroich 34, 4030 Ra- 
tingen 6. 


Verk. Hayes Komp. 1200/ 
300 Baud. Modem, Bell 103 
Norm. für alle Computer mit 
RS 232 mit vorhandenem In- 
terface auch am C64 An- 
wendbar! DM 250,--, z.Zt. 
keine FTZ# Tel. 0030/416 
2876. 


Polisonm 


18 rem poison =-===>====a=-2n======16 
28 rem (p) 12/86 commodore welt == 
38 rem =====-=-=-=-=-==2== === === 222 
a8 rem (c) 11/86 by r. dillinger == 
582 rem neusaess == 
68 rem == 
78 rem basic v3.5,| 3 == 
88 rem c16/116 plus4 == 
98 rem =>========== === mann 
188 poke55,8:poke56,59:clr 


gosub 2598 

goto18B58 

ji=-joy[l 1):rem geti$ 
ifj1=-Sthenifn=2theny=y+1:gotoa24 


ifj1=7thenifn=1thenx=x-1:goto24 


ifj1=3thenifn=1thenx=x+1 
ifji=1thenifn=2theny>=y-1 
goto248 

geti$:rem fuer tastatur 
ifi$=-"a"thenifn=2theny=y+1 
ifi$="o"thenifn=ithenx=x-1 
ifi$="p"thenifn=1thenx=x+1 
ifi$="gq"thenifn=2theny=y-1 
ifn=®thenstop 

onngot 0268, 328 
ifx>26thengot0628 
ifx<12thengot 0658 
char1,x,y,wh$+"FF” 
chari,x+2,y," “" 
char1,x-1,y,” 
goto378 
ify<?7thengoto688 
ify>17thengoto?718 
char1,x,y,wh$+"G":chari,x,yt1, 


char1,x,y-1, 
chari,x,y+t2,"” 
k=o:1=>p:0o=-0+01:p=p+p1 

ifpeek( 3872+48*o+p) <>32thengato 


char1,p,0,"D" 
char1,1,k,"” ":goto138 
' ifo= 2Atheno= =23:01=-1: sbund1, 688 


ifo=2theno=3:01=1:sound1,688,5 
ifp=39thenp=38:p1=-1:sound1,688 


ifp=®thenp=1:p1=1:sound1,688,5 
ifo=230oro-3orp=38orp=1thengoto3 


ze=a-peek( 164) 
color1,2,7:char1,21,1,str$(ze): 
print” .; 

488 we= -peek( 30872+4B*o+p) : ifwe=8Borw 
e=-Blorwe=82orwe=83orze<=®dthengoto?74 
B 


ifol=1thenifp1=1thengoto538 
ifo1=1thenifp1=-1thengoto55® 
ifo1=-1thenifp1=1thengot 0578 
528 ifo1=-1thenifp1=-1thengoto598 
538 ifpeek( 3872+4B*o+p- 1) <>32thenol 
=-1:sound1,488,8:g0t0398 
548 ifpeek( 3872+4B*o+p- 1) =32thenp1= 
-1:sound1,488,8:g0t0398 
558 ifpeek( 3072+48*o+p+1) <>32thenal 
=-1:sound1,488,8:got0398 
568 ifpeek( 3072+4B*o+p- 1) =32thenp1= 
1:sound1,4898,8:g0t0398 
578 ifpeek( 3072+4@*o+p- 1) <>32thenoil 
=1:sound1,488,8:g0t0398 
588 ifpeek( 3872+4@*o+p- 1) =32thenp1= 
-1:sound1,488,8:g0t039® 
598 ifpeek( 3072+4@*o+p+1) <>32theno1 
=1:sound1,4988,8:g0t0398 
608 ifpeek( 3072+4@*o+p- 1) =32thenp1>= 
1:sound1,488,8:g0t0398 
618 rem++++++ spielfigur aendern ++ 
++++ 
628 n= Ba er =28:ify=19theny=17:char1,2 
6,19, 
638 ify= -6theny= =7:char1,26,6, 
648 goto328 
658 n=2:x=11:ify=19theny=17:charl, 1 
EEE 
668 ify=- 6theny=7:char1,12,6," 
678 goto328 

688 n=1:y=6:ifx=11thenx= 12:char1,11 

‚7,” ":chart, 11,8," ” 

698 ifx= 2Bthenx= =26: char1,28,7," 
bar1,28,8,” ” 
788 g0t0268 
718 n=1:y=19:ifx=11thenx= 12:charl,1 
1,17,” #zcharl 11,18, > 

728 ifx= =2Bthenx= =26: chart, 28,17, 
char1,28,18,"” ” 


738 goto268 
748 Temt444+4+4444 444 HH HH 


758 rem+++++++++++ abbruch ++++++++ 
760 remtt+H+HHtHHtr HH HH HH 
++++ 

778 ifze<=d8thengoto97® 

IBB remtt+ttttttrtHHHHHtHHtHt Hr 
798 remt+++++++ gift getroffen +t+++ 
BOB remttt+t+t+tttrtttHrHHHttHHtr tt 
-B18 color1,2,7 
828 char1,19,12,f1$+"HH"” 

838 char1,19,13,fF1$+"HH" 

Hau char1,18,12, ":char1,18,15, 


498 
598 
518 


te: 


858 chari, 18,13,” 
868 char1,21,13,;" 
878 Forf=1t068 
888 g=int( rnd( 8) #21+3) :h=int( rnd( ®) 
*38+1) 


":.char1,18,14,"” " 
"-char1,21,14,” " 
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898 charli,h,g,f1$+"H" 13308 remtttt+HtHH4tHtH+HHH HH HH HH HH 
988 sound1,18,1:sound2,188,2:sound2 14348 scncelr 
‚2°g,5:sound1,f,2:sound1i,h,6 1358 goto1658 

ee 1368 p( 1)=14:p(2)=3:p(3)=4:p(l4)=5:p 
928 color1,2,7:char1,18,13,rn$+f1$+ (5)=6:p(6)=7 

died in the " 1378 y=-6:x=19 
938 printa/18;c1$". level” - 4388 n=1 

948 char1,13,24,"taste druecken" 1398 o1=1:p1-1 

958 geta$:ifa$<>""thenrun 1488 o=int(rnd( 8) *4+3) 

968 goto958 1418 p=int(rnd( 8) #37+1) 


370 remttrrtHHHtH HH 000 z=B 
44444444 ++ 

988 rem next level ++++++ „939 forg=Bto3 

998 remtt+HrrttHrHhHhhHHHtHht ht 04440 Forf=12+Z2t027-z 


ZPRR SOHalr 1458 color1,p(z+1),3 
1818 forg-1to15step2 1468 chari,f,7+z,"E"” 
1828 color!,g,3 1478 charı,f,18-z,"E" 
1838 charil,g,8g,1n$+"............. "+ 4488 nextf 
rf$ 1498 z=z+1 
1848 chari,g,g+t1,rn$+" "+rf$+"..... 1508 nextg 
nenn "+rn$+" "+rf$ 1518 z-® 
1858 chari,g,g+2,rn$+" “+rf$+"” well 4529 forg=®to3 
done "+rn$+" "+rf$ 1538 forf=B+zto18-z 
1868 chari,g,g+3,rn$+" "+rf$+"..... 1548 color1i,p(z+1),3 
EEE “+rn$+” "+rf$ 1558 char, 12+z,f,"E" 
1878 chari,g,g+4,1rn$+"............. 1568 char1,27-z,f,"E" 
“+rf$ 1578 nextf 
1888 sound1i,g*180,5 1580 z=z+1 
1898 sound2, 788+28*g, 18 1598 nextg 
1188 next 1688 goto1788 
1118 F=B:forg=16t02step-2 1618 color1,8,7:forf=1t038 
1128 color1,g,4 1628 chari,f,2,"T":chari,f,24,"T" 
1138 charl,g,f,rn$+".. .- nun nun 1638 nextf 
.."+rf$ 1648 goto1368 
1148 chari,g,f+1,rn$+" "+rf$+"..... 1658 color1,8,7 
a a ae "“+rn$+" "+rf$ 1668 fForf=3t023 
1158 chari,g,f+2,rn$+" "+rf$+" get - 1678 char1,8,f,"W":char1,39,f,"W" 
ready for "+rn$+"” "+rf$ 1688 nextf 
1169 chari,g,f+3,rn$+" "+rf$+"..... 1698 goto1618 
a te ee "+rn$+"” "+rf$ 1708 color1,8,7? 
1178 chari,g,f+t4,rn$+"” "+rf$+"..nex 1718 char1,8,2,”X"” 
t..level.."+rn$+"” "+rf$ 1728 poke3191,89:poke2167,119 
1188 chari,g,f+5,rn$+” "ırf$+".... 1738 char1,8,24,ym$ 
I ER "+rn$+" "+rf$ 1748 poke4971,98 
1190 Ehärl ,g,Fr6,rnS$t" an aie 1758 color1, 16,5 
...."+rf$ 1768 char1,19,12,f1$+"PQ"+fo$ 
12088 sound3, g*18+788, 18 1778 char1,19,13,f1$+"RS"+fo$ 
1219 f=f+1 1788 color1,14,5 
1228 nextg 1798 char1,8,8,"..poison..... (c) 19 
1238 forf=688t01888stepS 86 by dillingersoft" 
1248 sound3,f,3 1888 color1,2,7 
1258 nextf 1818 char1,16,1,"time:" 
1268 forf=1t0388 1828 a=a+1®8 
1278 color®,2,7 1838 poke164,8 
1288 colorß,1 1848 goto138 
1298 nextf 1858 rem+t+++Hr+r 44H HH HH HH HH 
1388 goto1318 1868 rem+t+++++++++++ anfang +++++++ 


1318 remt++++4+++tHHrHHH HH 1878 rem+t++HH4+Ht4H4 tr 
- - 
1328 rem+++++++ bildschirmaufbau ++ 1888 x=9:y=B:0=9:p=9:01=8:p1=8:n-2: 39 
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Poilsom 


i$=-"":a=0:f=8 


1898 
1998 
1918 
1928 
1938 
1948 
1958 
1968 
1978 
1988 
1998 
2088 
2818 
2028 
2038 
2848 
2058 
2068 
2078 
2888 
2898 
2188 
‚24a 
2118 
) 
2128 
2138 
2148 
2158 
4 
2168 
2178 
2188 
72 
2198 
2288 
2218 
2228 
2238 
2248 
2258 
2268 
2278 
2288 
2298 
2388 
2318 
2328 
89,8, 
2338 
0,291 
2348 
2358 
2368 
2378 
2388 
2398 


poke65298,, peek( 65298) and251 
poke65299, 68 

restore2298 

forf=15184t015133 
readby:pokef,by 

next x 

sys15184 

restore2978 
forf=15368+68*8t015360+73*8-1 
readby:pokef,by 

nextf 
forf=15368+79*8t01536@+85*8-1 
readby:pokef,by 

nextf 
forf=15368+87*8t0153608+93*8-1 
readby:pokef,by_ 

nextf 

goto2358 

rem+t+++4+4+4+444H4HHHtrtH HH 
rem++++++++ zeichen-datas +t+++ 
Tem+t+++4+444HH HH HH HH Hr 
data24, 126, 126, 255,255, 126, 126 


data®, 126,126, 126, 126,126, 126, 


datad,0,255,255,255,255,8,8 
data69,690,68,68,690,68,68,68 
data129,16,4,64,16,138,8,64 
data68, 126,219,255, 126,36,68,2 


rem+t++++++++ giftflasche +++++ 
data3,3,1,7,31,28,24,17 
data192,192,128,224,248,56,24, 


data16,24,29,28,22,16,23,31 
data8,24,184,56,184,8,232,248 
rem++++++++++++ rand ++ +4++++++ 
data®,24,165,66,66, 165,24,8 


data36,24,36,66,66,36,24,36 


rem++++++++++++ ecken ++++++++ 
data®,24,37,66,66,37,24,36 
data®,?24,164,66,66, 164,24,36 
data36,24,164,66,66, 164,24,0 
data36,24,37,66,66,37,24,8 
rem+t+H+H4+H+HHHH HH HH HH 
rem++++++++ maschinencode +t+++ 
rem+t4+H4+H4+HH4HHHH HH HH HH 
data162,0,189,0,288,157,8,68,1 
289, 157,8 
data61,189,0,218,157,8,62,189, 
‚157,8,63 

data232,2808,229,96 
remt4+4++4+44++4t4t4t4t4tHtttt HH Hr 
rem+t++t++++++t+ titelbild ++++++r 
remtt+t4+t44HH4HtHHHHHH HH HH HH 
volB h 
a=8:p1=2:color4,1:color®,1:col 


or1,8,5 
2488 scnelr 

2418 printhe$;tabt( 13) ;"dillingersof 
E. Sprint 

2428 printtab( 15) ; "presents" 

2438 char1,13,24,rn$+wh$+"taste dru 
ecken"+rf$ ; 

2448 colori,p1,int(rnd(8)*8) :charl, 
197,4,'07 ; 

2458 print 

2468 print:printtab( 9) ;"000 000 00 
00 000 00 0" 

24708 printtab( 9) ;"0"s2$"0"s2$"0"s2$ 
"0"52$"0"s2$"0"s2$s2$s2$"0"s2$"0"s2 
$"00 0” 

2488 printtab( 9) ;"000"s2$"0"s2$"0"s 
2$"0"s2$"000"s2$"0"s2$"0"s2$"00"s2$ 
nn” 

2498 printtab( 9) ;"0"s2$s2$s2$"0"s2$ 
"0"52$"0"s2$s2$s2$"0"s2$"0"s2$"0"s2 
$"0"s2$"00" 

2588 printtab( 9) ;"0"s2$s2$s2$"000”s 
2$8"0"s2$"000"s2$"000"s2$"0"s2$"00" 
2518 color1,p1,5 

2528 char1,1,15,"..(c) copyright 19 
86 by dillingersoft"” 

2539 print: print:print"....-- writt 
en by robert dillinger" 

2548 pi=p1+1:ifp1=17thenp1=2 

2558 sound1,int(rnd( 8) #1888) ‚3 

2568 sound2,int(rnd(8)*18),1® 

2578 geta$:ifa$<>""thengoto131® 
2588 goto2448 

2598 rem nachspann 
2688 rem * farbcodes/steuercodes * 
2618 wh$=chr$( 885) :rn$=chr$( 018) 
2628 he$=chr$( 819) :f1$=chr$( 138) 
2638 fo$=chr$( 132) :rf$=chr$( 146) 
2648 c1$=chr$( 157) 

2658 rem #*#* zeichensatz/graphik * 
2668 s2$=chr$( 168) :ym$=chr$( 219) 
2678 return 

26889 rem 
2698 rem 
2788 rem 
2718 rem 
2728 rem 
2738 rem 
2748 rem 
2758 rem 


812287 
907547 
BauBH08 
vBnnaRB 


memory == 
program = 
variables 
arrays 

892088 strings 
033387 fre(8) == 


COMMODORE-WELT 


Jeden Monat neu 


ad 


ıMiniroulett 


8 rem miniroulett ===========-=-=-=16 
28 rem (p) 12/86 commodore welt == 
3U rem ===>==----3 35 
48 rem (c) 11/86 by s. guth == 
58 rem gelsenkirchen Ze 
68 rem == 
78 rem basic v3.5 ir 
88 rem c16/116 plus 4 mind. 32k == 
Meren Terenmansannansbunnesoerennn 
188 gosub 5788 


118 
128 
138 
148 
158 
uth"” 
168 char1,11,19,"4658 gelsenkirchen 


senelr 
color1,8,4:color®,1:color4,1 
char1,14,8,"mini-roulett” 
char1,11,12,"fuer den c16 +64kb 


char1,9,16,"(c)1986 by stefan g 


178 getkeya$ 

188 scnclr 

198 char1,3,12,”"ihr startkapital be 
traegt 258 dm."”:getkeya$ 

200 chart; 3, 12," 2 eu a aka ren nimm 


up=1 

bt$="" :mn$="":p1$="":kg$="":tr$ 
:d1$="":er$="":zw$="":dr$="":re$ 
zer zn 


248 di$="":gj$="":gh$="" 

258 goto278 

268 up=2 

278 color1,8,5:color®,6,3:color4,3, 
A 

288 print 

298 print" "s2$s2$s2$"UCCECCCECC"zh$ 
"TCCCECCEE"zZh$"CCCCCCECEC"zZh$"CCI" 

3n0 print” 2:25:02: 13 CE Be B'.,: 
Eee B1.B" 

318 print"....B"left$(q2$,8)"B..... 
re er "za$"CCc”"zi$ 

328 print"....B"s2$"manque”"s2$"B"s2 
$"impair"s2$"B"left$(q2$,8)"B2.B" 
338 print"....B"left$(q2$,8)"B"left 


$(q2$,8)"B"left$(q2$,8) za$"CC"zi$ 
348 print” "s2$"..B"left$(q2$,8)"B" 
left$(q2$,8)"B"left$(q2$,8)"B3.B" 
358 prints2$s2$”.."za$”"CC"zh$"CC"zh 
S"CC"ym$"CC"zh$"CC"zh$"CC"ym$"CC"zh 
$"CC"zh$"CC"ym$"CC"zi$ 

3698 print*...-.B- -B..B..8-.B-B.:B;; 
B3sEB:-B.1B” 

378 print"”....B.."za$"CC"ym$"CC"ym$ 
"CC" ym$"CC"ym$"CC"ym$"CC"ym$"CC"ym$ 
"CC"ym$"CC"zi$ 

388 print"....-B 8B..B..B.-B..B..B.. 
B..B..B_2B" 


.B.."za$"CC"ym$"CC"ym$ 
“"CC"ym$"CC"ym$"CC"ym$"CC"ym$"CC"ym$ 
"CC"ym$"CC"zi$ 


398 print”... 


488 print"....B "s2$"B,.B..B..B..B. 
.B..B..B..B_3B" 
418 print"...."za$"CC"zg$"CC"zg$"CC 


"um$"CC"zg$"CC"zg$"CC"ym$"CC"zg$"CC 
"zg$"CC"ym$"CC"zi$ 

428 print" ..=.B..:.-* BE 2 KR BE 
ee B3.B" 

438 print"”....B"left$(q2$,8) "B"left 
$(q2$,8) "B"left$(q2$,6)".."za$"CC"z 
i$ 

448 prints2$" "s2$s2$"B"s2$s2$"pass 
e"s2$"B"s2$s2$"pair"s2$s2$”"B"left$( 
128,5), 7.82.8" 
458 print" "s2$s2$s2$"B"left$(q2$,8 
)"B"left$(q2$,8) "B"left$(q2$,5)".-- 
"za$"CC"zi$ 


468 print"....B"left$(q2$,8)"B"left 
$(q2$,8) "B"left$(q2$,5)"...B1.B" 
478 print"... .JECCCCCCE"Zg$"CLECEEE 
E"zg$"CCCCCCCcCE"zg$"CCcK" 

488 print 

498 print 

588 print 

518 color1,3,1 

528 char1,25,3,23$+23$+z23$+23$+z3$ 
538 char1,24,4,"N"+22$+22$+z2z2$+z2$+ 
z2$+"M" 


548 char1,24,5,z4$+"rouge"”+z6$ 

558 char1,24,6, "M"+23$+z23$+23$+z3$+ 
z3$+"N" 

568 char1,25,7,22$+22$+z2$+z2$+z2$ 
578 color1,1 ey 
588 char1,25,15,23$+z2z3$+z3$+z3$ 

598 char1,24,16, "N"+z2$+z22$+z2$+z2$ 
+"M" 

680 char1,24,17,z4$+"noir"+z6$ 

618 char1,24,18,"M"+z23$+z3$+z23$+z3$ 
628 char1,25,19,z2$+z2$+z2$+z2$ 
chart, 8,0,” u... due une 
char1,8,18,”81” 
char1,8,14,"83" 
char1,11,18,”84"” 
char1,11,14,"86" 

658 char1,14,12,”88” 

698 char1,17,12,"11" 

788 char1,28,18,"13"” 

718 char1,28,14,"15" 

728 char1,26, 12,28” 

738 char1,23,18,"16" 

748 char1,23,14,"18" 

758 char1,29,12,"23" 

768 color1,3,8 

778 char1,8,12,"82" 


668 
678 
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788 
798 
888 
818 
828 
838 
848 
858 
868 
878 
888 
898 
988 
918 
928 
938 
948 
958 
968 
978 
988 
998 
1888 


1818 


1828 
19838 
19848 
1858 
19868 
1878 
1882 
1098 
1180 
1118 
1128 
1138 
1148 
1158 
$ 
1168 
$ 
1178 
3$ 
1188 
$ 
1198 
$ 
1288 
$ 
1218 
1228 
1238 
1248 
1258 
1268 
1278 
1288 
1298 


char1,11,12,"05" 
char1,14,190,"87" 
char1,14,14,"89" 
char1,17,18,"18" 
char1,17,14,"12" 
char1,28,12,”14" 
char1,26,18,"19"” 


char1,26,14,"21"” 


char1,23,12,”17"” 


char1,29,19,"22“ 


char1,29,14,”24” 

color1,2,7 
ifgh$="1"thenchar1,8,18,gj$ 
ifgh$="2"thenchar1,8,12,gj$ 
ifgh$="3"thenchar1,8,14,gJ$ 
ifgh$="4"thenchar1,11,18,gj$ 
ifgh$="5"thenchar1,11,12,83j$% 
ifgh$-"6"thenchar1,11,14,gj$ 
ifgh$="7"thenchar1,14,18,83j$% 
ifgh$="8"thenchar1,14,12,83j$ 
ifgh$="9"thenchar1,14,14,8Jj$ 
ifgh$="18"thenchar1,17,18,gJj$ 
ifgh$="11"thenchar1,17,12,8j$ 
ifgh$="12"thenchar1,17,14,85j$ 
ifgh$="13"thenchar1,28,10,gj$ 
ifgh$="14"thenchar1,28,12,8j$ 
ifgh$="15"thenchar1,28,14,8Jj$ 
ifgh$="16"thenchar1,23,18,gJj$ 
ifgh$="17"thenchar1,23,12,8j$ 
ifgh$="18"thenchar1,23,14,8gj$ 
ifgh$="19"thenchar1,26,18,g23j$ 
ifgh$="28"thenchar1,26,12,85$ 
ifgh$="21"thenchar1,26, 14,8j$ 
ifgh$="22"thenchar1,29,18,gj$ 
ifgh$="23"thenchar1,29,12,8Jj$ 
ifgh$="24"thenchar1,29,14,8Jj$ 
ifgh$="®"thenchar1,5,12,gJj$ 


ifgh$="rouge"thenchar1,26,6,8J 
ifgh$="noir"thenchar1,26,18,8J 
ifgh$="impair"thenchar1,17,7,8 
ifgh$="pair"thenchar1,17,19,8J3 
ifgh$="manque"thenchar1,8,7,8J 


ifgh$="passe"thenchar1,8,19,8J 


ifgh$="1."thenchar1,32,4,85j$ 

ifgh$="2."thenchar1,32,6,8Jj$ 

ifgh$="3/"thenchar1,32,8,8j$ 

ifgh$="_1”"thenchar1,32,18,8j$ 
ifgh$="_2"thenchar1,32,12,8j$ 
ifgh$="_3"thenchar1,32,14,g8J$ 
getkeyas$ 

ifup=-2then 1458 

scnclr 


1388 color1,2,7 
1318 char1,6,12,"worauf moechten si 


e setzen" 


1328 printc4$left$(qr$,22); :inputgh 
$ : 

1338 ifval( gh$) >24then1298 

1348 scnclr : 
1358 char1,3,12,"wieviel dm moechte 


n sie einsetzen” 

1368 printc4$left$(qr$,22); :inputgj 
$:gj=vallgj$) :ifgj>ksthen134® 

1378 ifgj$="3"thengj$="@3" 

1388 ifgj$="4"thengj$="84" 

1398  ifgj$="5"thengj$="85" 

1408 ifgj$="6"thengj$=-"86" 

1418 ifgj$="7"theng j$="07" 

1428 ifgj$="8"thengj$="88" 

1438 ifgj$="9"theng j$="89" 

1448 onupgoto26#, 1458 

1458 f=int(rnd( 1) #24) +B 

1468 scncelr 

1478 up=1 

1488 goto1512 

14998 gosub413® 

1588 up=2 

1518 ifup=-2then1928 

1528 color®,8,5:color1,7,4 

1538 char1,11,6, "UCC"+zh$+"CC"+zh$+ 
"CC"+zh$+"CC"+zh$+"CCcI" 

1548 char1,11,7,"B..B..B..B..B..B" 

1558 char1,11,8, za$+"CC"+ym$+"CC"+y 
m$+"CC"+ym$+"CC"+ym$+"CC"+zi$ 

1568 char1,11,9,"B..B..B..B..B..B" 

1578 char1,11,18,za$+"CC"+ym$+"CC"+ 
ym$+"CC"+ym$+"CC"+ym$+"CC"+zi$ 

1588 char1,11,11,"B..B..B..B..B..B" 
1598 char1,11,12,za$+"CC"+ym$+"CC"+ 
ym$+"CC"+ym$+"CC"+ym$+"CC"+zi$ 

1688 char1,11,13,"B..B..B..B..B..B" 
1618 char1,11,14,za$+"CC"+ym$+"CC"+ 
ym$+"CC"+ym$+"CC"+ym$+"CC"+zi$ 

1628 char1,11,15,"B.-B..B:-B.-B..B” 
1638 char1,11,16, "JEC"+zg$+"CC"t+zg$ 
+" CC"+Zg$+"CC"+zg$+"CcK" 

1648 color1,6,4 

1658 char1,12,7,"” 8" 

1668 color1,3,1 

1678 char1,18,7,"82" 

1688 char1,12,9,"”85” 

1698 char1,18,9,"87" 

1788 char1,24,9,"89". 

1718 char1,12,11,”"18" 

1728 char1,18,11,”12"” 

1738 char1,24,11,"14” 

1748 char1,18,13,"17” 

1758 char1,24,13,"19"” 

1768 char1,15,15,"21" 

1778 char1,18,15,"22" 
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char1,24,15,"24"” 
color1,1 
char1,15,7,"81"” 
char1,21,7,”"83” 
char1,24,7,"84” 
char1,15,9,"86"” 
char1,21,9,”88” 
char1,15,11,"11"” 
char1,21,11,"13” 
char1,12,13,"15” 
char1,15,13,"”16” 
char1,21,13,"18" 
char1,12,15,"”28” 
char1,21,15,"23"” 
onupgoto1498, 1938 
color1,2,7 
iff=Bdthenchar1,12,7,f1$+" @"+f 


iff=1thenchar1, 15,7, f1$+"@1"+F 


iff=2thenchar1,18,7,f1$+"02"+F 


iff=3thenchar1,21,7,f1$+"83"+f 
iff=4thenchar1,24,7,f1$+"BA"+F 
iff=Sthenchar1,12,9,f1$+"85"+f 
iff=6thenchar1,15,9,f1$+"86"+f 
iff=7thenchar1,18,9,f1$+"87"+Ff 
iff=8Bthenchar1,21,9,f1$+"88"+Ff 


iff=9thenchar1,24,9,f1$+"09"+f 


iff=18thenchar1,12,11,F1$+"10" 


iff=11thenchar1,15,11,f1$+"11" 
iff=12thenchar1,18,11,f1$+"12" 
iff=13thenchar!,21,11,F1$+"13" 
iff=14thenchar1,24,11,f1$+"14" 
iff=15thenchar1, 12,13, f1$+"15" 
iff=16thenchar1,15,13,f1$+"16" 


iff=17thenchar1,18,13,f1$+"17" 


iff=18thenchar1,21,13,F1$+"18" 


iff=19thenchar1,24,13,f1$+"19" 


iff=28thenchar1,12,15,f1$+"29" 


2158 
+fo$ 
2168 
+fo$ 
2178 
+fo$ 
2188 
+fo$ 
2198 
2288 
2218 


2228 
2238 


2248 
2258 
2268 
2278 
2288 
2298 
2388 
2318 
2328 
2338 
2348 
2358 
2368 
2378 
2388 
2398 
2408 
2418 
2428 
2438 
2448 
2458 
2468 
2478 
2488 
2498 
2588 
2518 
2528 
2538 
2548 
2558 
2568 
2578 
2588 
2598 
2688 
2618 
2628 
2638 
2648 
26582 
2668 
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iff=21thenchar1, 15,15, f1$+"21" 
iff-22thenchar1,18,15,f1$+"22" 
ief=D3thenichart AP -15 Auge"93” 
iff=-24thenchar1,24,15,f1$+"24" 


getkeyas$ 
senclr. 
char1,11,8,"es haben gewonnen: 


Print”... 2a ae die zahl"f 


iff=1then2588 
iff=2then2568 
iff=3then2628 
iff=-4then2688 
iff=-5then2748 
iff=-6then28B88 
iff=7then2868 
iff=8then2928 
iff=9then2988 
iff=-18then3848 
iff=11then3188 
iff=-12then3168 
iff=-13then3228 
iff=14then3288 
iff=-15then3348 
iff=-16then3488 
iff=-17then3468 
iff=18then3528 
iff=-19then3588 
iff=-28then3648 
iff=-21then3788 
iff=22then3768 
iff=-23then38208 
iff=-24then3888 
iff=-8then3938 
got0o3938 


ne impair" 


PEINE® en ie ee manque" 
BEINE" u... mas 1.reihe” 
PLINE 2.22 Reisen at % 1.drittel"” 


BPLINET ou: Acer ie 3.reihe" 


Minirnoulett 1 
2678 goto3938 
2688 print": 22. 2,00. noir" 
2698 print"......---.- === pair" 
2788 print"... .r=.--5:=: manque"” 
2710 print"... .- .- enn-- 1.reihe" 
2720 print”. en an an nn 1.drittel" 
2738 goto3938 2 
DFABEDTINE N ana eier rouge" 
2758 print” .„......2=- 8-54: impair 
2768 print”. 2. .-...-@7 2.5: manque" 
2998: print”. - u. Au .e0 5 2.reihe"” 
22808: BTINE"... -- - one r > 1.drittel” 
2798 gotoa3938 
2800. print”. san ann ann noir” 
2810 print" wear e- pair" 
2828) print” 2.08. sur manque” 
2838 print”... - „0:2: =0. 3.reihe" 
2848 print”. „ae een i.drittel" 
2858 goto3938 
2868) Drint "24 20a are rouge 
2870 print”... 2-5 ssm8%- impair" 
2888: print"... - ne mern manque 
2890 print": -.o- eur. i.reihe 
2908 print"... .2ueeennnn 1.drittel" 
2918 goto3938 
2928 print”... .-. -- „==... noir 
2938. print”... cn ern: pair 
2948 print"......-- eu... manque 
29508, print -::.: 05er 2.reihe 
2968 print".....-- urn. I1.drittel” 
2978 g0t03938 
2988 print"... „u... - rouge 
2998 print"...-..-..--»»- impair 
3888 print"”....... rue. manque”" 
3818 print”... . ===. 2-=> 3.reihe" 
3820 print"......--......- 2.drittel"” 
30838 g0t03938 
3840 print".....----er0en rouge"” 
3858 print"”........»...=- pair" 
38608 print"....-.-..--=>..- mangque 
3878 print"......-- ee: 1.reihe" 
3888 print"......»2..-... 2.drittel"” 
39898 goto3938 
FAR print". ur ausser en noir” 
3110: print"... 245% impair"” 
3120 print" .....------ =>. manque"” 
3130 print"....----..=... 2.reihe"” 
3148 print"”........- se... 2.drittel"” 
3158 goto3938 ; 
3168 print".........»-»--- rouge"” 
3170 print”... sr sun sen pair" 
3188 print"...------e...- manque 
3198 print"..---------.-- 3.reihe 
32M0 print”... „es urn 2.drittel"” 
3218 goto393® 
3228 print"... -.-----..-- noir" 
32380 print"”......-:--.-»- impair" 
3248 print"...-...----=..- passe 


print" ....- zuscse0en i1.reihe" 
print”. we nene nn 2.drittel" 
g0t03938 

print"....-=.--000.. rouge 
print”. Anni ssineee pair 
print"...„.=.--eeer.- passe 
print".....=-sc0 0... 2.reihe" 
print"... “wu... 2.drittel” 
goto3938 

print".....--.ee-rr- noir" 
print".........zrr.r impair 
print"...-..----.0r- passe 
print"”...-.---.-..»-- 3.reihe 
print"...-.----.---.- 2.drittel" 
g0t0393® 

Brink” an nn nn na aa He noir 
print"”....--- -S.°-= pair 
print” ..- -.- u re passe" 
print”... „Here i.reihe" 
BEINE”. .,54 4 525 as 2.drittel" 
g0:03938 

print"... sure rwenes rouge 
PIINE" nee nee nee impair 
BEIDE” „anime passe 
DEINEN Ha ae ne 2.reihe 
grint" nern ara 3.drittel" 
g0ot03938 t 
print”. re noir" 
Print” =: 2.526 a pair" 
PTINE -.- aa er ae passe” 
PrENtE" DL Seesen 3.reihe 
print" una nee nn 3.drittel" 
g0ot0o3938 

print". 2: sea aan rouge 
print"...----anuens impair 
Print... rn dene passe" 
print"... cur un anenn 1.reihe 
print"... „..e.2--.000. 3.drittel"” 
g0ot03938 

Drink”... en nennen noir" 
BrINE" ns ne nu near pair" 
print"”....... „oo rme passe 
PrTINE". ee 2.reihe" 
BIPENE” uimtereieemn 3.drittel" 
g0ot03938 

print". Zu. ws2:0 78% rouge 
print". „elta an impair"” 
Brink". wann MR passe" 
PrINE" zu an 3.reihe 
print".:::---.-»-+..-- 3.drittel" 
got03938 

DIENTE "NE rn une au ee rouge"” 
Print" ee eine pair" 
BEIDE". essen passe” 
Drink? - snmensaus are is i1.reihe"” 
print” 243%: m #5 3.drittel" 
g0oto3938 

PTIneEn er essen noir" 


BBIB.DIINE en impair" 
38409 pPriNt" : :=.2., 060 Ar - passe 

BHSY. PIINE. - aus unre 2.reihe" 
3568. print”... ... u... 3.drittel" 
3878 goto3938 

38688 print” ©.» 000. wor «- rouge"” 
3898: print” : >: u: 0:==-0.= .- pair" 

3988 print"”......:=::-:=- passe" - 
3918. print" - - 2a: a5#4.05% 3.reihe" 
3928 print”....--=:=-=-=:- 3.drittel" 
3938 getkeyas$ 

3948 scnelr 


3958 iff=1orf=2orf=3orf=4orf=-5orf=6 
orf=?7orf=-Borf=9orf=18orf=11thenbt$= 
"manque” 

3968 iff=12thenbt$="manque” 

3978 iff=2orf=sSorf=7orf=9orf=1Borf= 
120orf=14orf=17orf=19orf=2lorf=22the 
nmn$="rouge" 

3988 iff=24thenmn$="rouge"” 
3998 iff=1orf=3orf=-4orf=6orf=Borf=1 
1orf=13orf=15orf=28orf=23thenpl1$="n 
oir"” 

4888 iff=lorf=3orf=5orf=7orf=9orf=1 
lorf= jdurt-1Sarf120EP"19thunkas=t 
mpair" 

4818 iff=2lorf= 23thenkg$=" impsir" 
a928 iff=2orf=4orf=6orf=Borf=1Borf=- 
12orf=14orf=160orf=18orf=28thentr$=" 
pair" - 

4838 iff=22orf=24thentr$="pair" 
4848 iff=13orf=14orf=150orf=16orf=17 
orf=18orf=19orf=28orf=21orf=22thend 
1$="passe" 

a858 iff=-230orf=24thendl$="passe" 
4868 iff=lorf=2orf= TOnERS Aorf=Sorf=6 
orf=7orf=8thener$="1. 

a878 iff=9orf=18orf=11orf=-12orf= 130 
rf=14orf=1Sorf=16thenzw$="2." 

AB88 iff=170rf=18orf=-19orf=-28orf=21 
orf=-22orf=230orf=24thendr$="3." 

4998 iff=1orf=-4orf=7orf=18orf=13orf 
=16orf=19orf=22thenre$="_1" 

4180 iff=2orf-Sorf=Borf=11orf=14orf 
=17orf=2Borf=23thenzr$="_2" 

4118 iff=30orf=6orf=9orf=12orf=15orf 
=18orf=21orf=24thendi$="_3" 

4128 goto4728 

4138 forb=1t058 

4148 nextb 

4158 up=1 

4168 goto4288 

4178 up=2 

A188 got0o4288 

4198 up=3 

4288 color1,2,7:ifb= iorSithenchari, 
13,7, 0” 

a2ıa color1,6,1:ifb= 2orS2thencharl, 


® 


19;7,.0° 
4228 color1,2,7:ifb= =30or53thenchar], 
5.7, 91 
ES color1,1:ifb-4or54thenchar1, 15 
us color1,2,7:ifb= =Sor55thencharl, 
18,7, 02” 
4258 color1,3, 
18,7,"02"” 
4268 color1,2, 
24,7,.803” 
4278 color1,1:ifb=8or58thenchar1,21 
A he 1 Sr 
4288 color1,2, 
24,7,"904“ 
4298 color1,] 
4,7,"04"” 
4388 color1i,2, 
‚12,9,"85"” 
4318 color!,3, 
‚12,9,”05"” 
4328 color1,2, 
‚15,9,"86"” 
4338 color1,1: 
5,9,"06" 
4348 color1,2, 
‚18,9,"07" 
4358 color1,3, 
‚18,9,"07" 
4368 color1,2, 
‚21,9,”08” 
4378 color1,1:ifb=180r68thenchar1,2 
1,9,"88" 
4388 color1,2,7:ifb= 190r69thenchar] 
‚24,9,"89" 
4398 color1,3, 
‚24,9,”09"” 
4488 color1,2, 
32,07, 
4418 colori,3, 
ME > 5 a: 
4428 color1i,2, 
15,87, 
4438 color, 
u RE 5 0 
4448 color1,2,7:ifb= =250r75thenchar] 
Ber 
4458 snlorl; 31: ifb= =260r76thenchar! 
„18,11, 1e 
Au60 eoinrl, 2,2. 8D- 27o0r77thenchar1 
„Arts aa 
4478 lan, 41:ifb=280r78thenchar1,2 


1:ifb=6o0r56thencharl, 


7.ifb=70r57thencharl, 


7:ifb=90or59thencharl, 
:ifb=18or68thenchar1,2 
7:ifb=11lor61thenchar! 
1:ifb=12o0r62thenchar! 
7:ifb=130r63thenchar! 
ifb=14or64thencharl,!1 
7:ifb=150r65thenchar! 
1:ifb=16o0r66thenchar! 


7:ifb=170r67thenchari 


1:ifb=28or?®thenchar!1 
7:ifb=-21or?71thenchar! 
1:ifb=220r72thenchar! 
7:ifb=-230r?3thenchari 


1:ifb=-24o0r74thencharl,! 


4, 1, 
4488 color1,2,7:ifb= 290r79thenchari1 
‚24,11 „1a 


A498 saleri, 3,121 Tb= 380or8@thenchar1 
BR, Ur, ME 


A508 oalort, 2,7=2ifb- 3lor81ithenchar1! >» 
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2a, 

4518 colori1, 

2513,”718* 

4528 color1,2,7:ifb= 330or83thenchar] 
;15,19,”"16” 

4530 SAror!: 1:ifb=340r84thencharil, 1 

5,19, A8* 

4548 color1,2,7: ifb= =350r85thenchar] 
18,13," 12” 

Assa esiori; 3,1:2:f8b> 360r86thenchari 
18,73, 719" 

4568 colart; 2,7:ITb> 370r87thenchar] 
23,103,” 78° 

4578 sort, 1:ifb=380or88thenchar1i,2 

13," 107 

ans color1,2,7:ifb= BorBIthanchar 
23,13,” 19” 

4598 niert. 3, 151IFD- Beräßikencheirt 
24,13,” 19”7 

A600 cölurt, 2,7.11b* =410or91thenchari 
.ıi2,19; "2u" 

HAT, color, 1:ifb=420r92thencharl, 1 

2,15,”20” 

4628 color1,2,7:ifb= A30or93thenchari 
15, 15,"23" 

4638 entori, 3,1:ifb= 44or94thenchari 
„15,18, 21" 

Asan ee 2,77 38D- 450r95thenchari 
48,.15,722°7 

4658 Eolori, 3, 121f5* 460r96thenchari 
PR: x : DABE = Eoaer 

A660 EolorL, 2,721Tb* 470or97thenchari 
er, 13,03 

4678 ae Y2 ifb= 4Bor98thenchar1i,2 
1,19, "723° 

4688 color1,2,7:ifb=490r99thenchar! 
‚24,15,"24" 

4698 lest: 3, 121EbD> SBor1®88dthenchar 
1,24,15,"24" 

4788 onupgoto4178,4198,4718 

4718 return 

4728 gj=-vallgj$) 

4738 iff=Bandgh$="8"then4998 

4748 iff=1andgh$="81"then4998 

4758 iff=2andgh$="82"then4998 

4768 iff=3andgh$="83"then4998 

4778 iff=4andgh$="84"then4998 

4788 iff=Sandgh$="85"then4998 

4798 iff=6andgh$="86"then4998 

4888 iff=7andgh$="87"then4998 

a818 iff=Bandgh$= "98"then4998 

a8B20 iff= gandgh$= "39"then4990 

4838 iff=18andgh$="18"then4998 

A848 iff=11andgh$="11"then4998 

4858 iff=12andgh$="12"then4998 

4868 iff=13andgh$="13"then4998 

4878 iff=14andgh$="14"then4998 

4888 iff=15andgh$="15"then4998 


1:ifb=320r82thencharl1,1 


"5298 


iff=16andgh$="16"then4998 
iff=17andgh$="17"then4998 
iff=-1Bandgh$="18"then4998 
iff=19andgh$="19"then4998 
iff=2Bandgh$="28"then4998 
iff=21andgh$="21"then499B 
iff=22andgh$="22"then4998 
iff=-23andgh$="23”"then4998 
iff=24andgh$="24"then4998 
goto5A88 

ru=2A#gj 

ifbt$= -Eh$then5078 
ifd1$=-gh$then5978 
ifmn$=gh$then5B78 
ifp1$=gh$then5878 
ifkg$=gh$thenS5978 
iftr$=gh$then5878 

goto5988 

ru=2#g]J 

ifer$=-gh$then5158 
ifzw$=gh$then5158 
ifdr$=gh$then5158 
ifre$=gh$then5158 
ifzr$=gh$then5158 
ifdr$=gh$then515®8 

goto5168 

5158 ru=3*gj 

5168 ks=ks-gj:ks=ks+ru:senclr:ifks> 
=18888then53982 

5178 color1,1:color4,7,4:color®,8,4 
5188 printleft$(gd$, 6) left$laqr$, 7)" 
sie haben dm "ru" gewonnen!"left$(gq 
d$,4) 

5198 printleft$(qr$,6)"i 
nd belaeuft sich”c4A$ 
5288 printleft$(qr$,11)" jetzt auf d 
m "ks"." 

5218 ifks=-8then5288 

5229 getkeya$:printleft$(qgd$,5)c3$" 
moechten sie noch einmal :spielen( j/ 
n)?" 

5238 getkeya$:ifa$="j"ora$="n"then5 
248:e1se5238 

5248 ifa$="n"then5268 

5258 gj$=-" ":gh$=" ":ru=8:goto228 
5268. scnelr 

5278 new:end 

5288 gosub5578 

getkeya$:scnclr 

5388 printleft$(gqd$,B) 

5318 printleft$(qr$,5)"sie haben ih 
r konto verbraucht"c4$ 

5328 printc3$c3$c3$”"moechten sie ei 
n neues kontof( j/n)?” 

53380 getkeya$:ifa$="j"then5348:ifa$ 
="n"then5348:got0o5338 

5348 ifa$="j"thenrun:new 

5358 scnelr > 


4898 
4908 
4918 
4928 
4938 
A948 
4958 
4968 
4978 
4988 
4998 
5888 
5918 
5928 
5038 
5848 
sa5s® 
5B68 
5878 
5888 
5898 
5198 
5118 
5128 
5138 
5148 


hr kontosta 
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5368 run 

5378 scenclr 

5388 new:end 

5398 scncelr:printleft$(gd$,6) 


5488 printleft$(qr$,8)"herzlichen g 


lueckwunsch!" 

5418 printleft$(gd$,A)left$lqr$,8)" 
sie haben mit ihrem ge -"” 

5428 printc4$c4$left$(qr$,7)"winn v 
on"ks"dm die bank” 

5438 printc4$c4$left$(gqr$, 14)"gespr 
engt!!!" 

5448 fora=-8t0288:c=int( rnd{ 2) #14) +2 
:ch=-int(rnd{ 1) #6) +1 

5458 color®,c,ch:nexta:gosub5478:ge 
tkeya$:new:end 

5468 new:end 

5478 vol(5) 

5488 sound1,739,19:gosub5558 

5498 sound1,739, 18:gosub555® 

5588 sound1,739, 18:gosub555®8 

5518 sound1,739,28 

5528 sound1,778,15:gosub5558 

5538 sound1,784,15 

5548 sound1,778,38:sound1,798,38:re 
turn 

5558 forpa=1to198:vol(®) 

5568 nextpa:vol(5):return 

5578 vol(5) 

5588 sound1,453,58:gosub5688 

5598 sound1,453,48:g0sub56B# 

5608 sound1,453,15:gosub5688 

5618 sound1,453,59:gosub568# 

5628 sound1,571,38:gosub5688 

5638 sound1,516, 15:gosub5688 

5648 sound1,516,598:g0osub5S688 

5658 sound1,453,58:gosub56B® 

5668 sound1,383,12 

5678 sound1,453,5®@:return 

5688 forpa=8t029:vol(®) 

5698 nextpa:vol(5) :return 

5788 rem nachspann =====>=>=-7=5-5- 
5718 rem * farbcodes/steuercodes 
5728 cA$=chr$( 817) :c3$=chr$( 829) 
57380 F1$=chr$( 138) :Fo$=chr$( 132) 
5748 rem **#*= zeichensatz/graphik * 
5758 s2$=chr$( 168) : z2$=chr$( 163) 
5768 z3$=chr$( 164) :z4$=chr$( 165) 
5778 z6$=chr$( 167) :za$=chr$( 171) 
5788 zg$=chr$( 177) :zh$=chr$( 178) 
5798 zi$=chr$( 179) :ym$=chr${ 219) 
S5BOB rem #####r##t zeichenfolgen * 
5818 for q=1 to 48 

5828 q2$=q2$+s2$:qd$=qd$+c4$ 

5838 qr$=qr$+c3$ 

5848 next q 

5858 return 


5868 rem miniroulett ====>=-=-=-=-=-==]16 
5878 rem 968671 bytes memory I 
5888 rem 815535 bytes program == 
5898 rem 89288 bytes variables == 
59988 rem BBBHRR bytes arrays == 
5918 rem 889211 bytes strings == 
5928 rem BABBBB bytes fre(Bß) == 


Wer schenkt Schüler 16 K 
und Spiele, 9 Jahre alt! Ich 
besitze einen VC-20 Compu- 
ter, Michael Bannohr, Tel. 
05363/2395 Danke! 


Verk. Commod.PC128, f. DM 
640,--. Der Computer ist fast 
neu und unbenutzt. Ausführ- 
liche Literatur (Data Becker) 
VB. Beppo 089/934750. 


Verk. 2 Taschen-Computer- 
Spiele “Richmann” “Katz + 
Maus” + Batterien zus. für 
DM 30,-, inkl. Porto! (Neu- 
wert. DM 80,--). Tel. 09371/ 
8631. 


Verk. VC20 + voll schaltbare 
28K-Erweiterungs + 320 der 
besten VC 20 Progr. + neu- 
wertige Datasette 1531 + Ze- 
nith-Grün-Monitor + 5 Bücher 
+ 8:Module bzw. Origin.-Kas- 
setten f. DM 400,-- VB. Tel. 
06831/86264. 


VG 20 VC 20 VC 20 - 
Tausche u. verk. VC 20 Soft- 
ware (GV-32K) auch Modul- 
Progr. Besonders interessiert 
an Software f. 16K, bzw. f. 
32K u. an Modulprogr. Lud- 
wig Frank, Keltenstr. 48, 
6630 Saarlouis 


Welcher Commodore-Profi 
oder Club hilft DDR Compu- 
ter-Fan mit einem nicht mehr 
benötigten Gerät, Listings, 
Service und Programmie- 
rungs-Unterlagen zum Ein- 
stieg in größere Dimensionen. 
Einem briefl. Kontakt wäre 
ich nicht abgeneigt!! Wolf- 
gang Döhnert, DDR-Luther- 
stadt-Wittenberg, Angeb. bit- 
te über Erbes, Hellerhofstr. 
29, 6000 Frankfurt. 


VC 20 * VC-20 

Wer weiß, wie man den VC- 
20 (mit welchen Progr.) um- 
schalten kann! Kann man das 
überhaupt: Bitte antwortet!! 
Hans-Peter Stadelmann, See- 
str. 43a, CH-8805 Richterswil 


BÖRSE | 


Suche Monitor für C-16 (mög- 
lichst nicht teurer als DM 
300,--) Tel. 05425/5652 ab 
19.00 Uhr. 


1.) Suche intakten Drucker 
für den C-16. Angebote an 
Frank Brdoch, Ger-Haupt- 
mannstr. 19, 2120 Lübeburg. 
2.) Kaufe jeglichen Compu- 
terschrott, zahle bis zu DM 
50,--. Zuschrift mit Fehleran- 
gabe an Frank Brdoch, Ger- 
Hauptmannstr. 19: 21720 
Lüneburg. 


Verk. 128 D mit integr. Disk. 
Farbmonitor 1901, Drucker 
Star SG 10 C, 5 Bücher, Pro- 
gramm Text, Top Ass, Input 
64 (Ausgaben 1/85 bis 1/86) 
100 Leerdisketten, über 150 
64-er Disks. Kassetten (ca. 
50) Datasette u.v.a. Alles 
neu!!! (Anl. 8 Mon.) Tel. 
02102/57181. 


Commodore-Mini Club 
Postfach 1314. 5250 Krefeld 
29 Info kostenlos !!! 

Wir suchen noch gewerbliche 
Inserenten für Club-Zeitung. 
kostenloses Info. 


Hilfe!!! 

Als Computeranfänger habe 
ich nur wenig PC 128 Pro- 
gramme Suche dringend 
Spiel und Arbeitsprogr. in Ba- 
sic u. CP/M. Auf Kassette 
oder Disk. möglichst günstig 
o. gratis! Hoenekop Gunnar. 


‘ Asternweg 2, 4792 Bad Lipp- 


springe. 

"Wir sind Europas größter 
Brief u. Computerclub mit 
2500 Mitgliedern. Wer noch 
mitmachen will, schreibt mit 
Rückp. an Mathilde Zillig. 
Müllerhof 4, 5203 Much. 


Anwender-Spiele/Tausch o. 
Graphiken Musik/verk. Cass. 
mit 5 Soielen Info Gratis!! 
Wolfgang Oschinger, Postfach 
561, 2190 Cuxhaven. 
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SPRITES FÜR DEN C16/C 116 


Die Rechner C16 und C116 haben mit dem Basic 
3.5 einen beachtlichen Programmierkomfort, der 
durch den eingebauten Maschinenprogramm-Monitor 
Tedmon noch erhöht wird. Für den Benutzer, der 
Spiele und insbesondere Adventures entwerfen will, 
sind aber die Möglichkeiten im Vergleich mit dem 
C64 doch sehr eingeschränkt. Eine Realisierung von 
Sprites (kleine Bildelemente in hochauflösender 
Grafik, die frei auf dem Bildschirm plaziert werden 
können) durch den Fernsehprozessor ist nicht vor- 
gesehen. Eine Erzeugung von solchen Bildelemen- 
ten im hochauflösenden Grafikmode des C16 ist 
wenig interessant, da in diesem Modus nur 2045 
Bytes zur freien Verfügung stehen, mit denen man 
ee kein großartiges Programm schreiben 

ann. 
Müssen wir C16-Besitzer also aufgeben, uns eine 
Speichererweiterung oder gar einen anderen Rechner 
zulegen? Halt, nicht so voreilig. Wir haben auch im 
Textmodus unseres Rechners, der immerhin 12277 
Bytes Programmkapazität beschert, hochaufgelöste 
spriteartige Elemente, nämlich den Charaktersatz. 
Wenn man diese Zeichen zu Gruppen zusammenfas- 
sen und beliebig abändern könnte, dann hätten wir 
unsere frei definierbaren Sprites wie beim C64. 
Bevor es nun zur Sache geht, müssen wir uns zum 
Verständnis damit beschäftigen, wie denn die Zei- 
chen beim C16/116 auf den Bildschirm kommen. 
Unter dem Basic-RAM zwischen den Adressen 
$0C00 und $1000 liegt ein Speicherbereich, in dem 
der Bildschirm abgebildet ist, d.h, jedem der 40x25 
im Textmodus ansprechbaren Bildschirmpositionen 
ist ein Speicherplatz zugeordnet. Soll an einer be- 
stimmten Stelle des Bildschirmes ein Zeichen erschei- 
nen, dann muß die Nummer dieses Zeichens gemäß 
dem Bildschirmcode (S. 312/214 des Handbuches) 
in die entsprechende Speicherstelle geladen werden. 
Der Fernsehprozessor liest mit Hilfe des Betriebssy- 
stems diese Nummer aus, holt sich die Vorlage für 
das auszugebende Zeichen aus der Charakterliste im 
ROM (oberhalb von $D000) und gibt es auf den Bild- 
schirm aus. Parallel dazu wird aus dem Farbspeicher 
$0800 bis $OBFF der für die anzusprechende Bild- 
schirmstelle dort abgelegte Farbcode für den Zeichen- 
vordergrund abgelesen und bei der Zeichenausgabe 
berücksichtigt. - 
An dieser Stelle wäre die Frage berechtigt, was diese 
Ausführungen mit unseren frei definierbaren Sprites 
zu tun haben; denn die Charakterliste liegt tief im 
ROM und ist daher per Software nicht veränderbar. 
Zum Glück kann man dem Fernsehprozessor aber 
mitteilen, wo er seine Zeichenvorlagen zu suchen hat. 
Dies geschieht in den Registern 65298 und 65299. 
Wenn im Register 65298 das dritte Bit von rechts ge- 
löscht wird, wird der Fernsehprozessor angewiesen, 
eine Vorlagenliste im RAM-Bereich zu verwenden. 
In das Register 65299 wird die Anfangsseite im 
RAM (die beiden obersten Stellen der vierstelligen 
Hexzahl) eingegeben. Diese Zahl muß übrigens durch 
4 teilbar sein. Wir können nun die Charakterliste 
des ROM von $D000 bis $D3FF mit dem Transfer- 
befehl T des Monitors z.B. in das RAM von $3800 bis 
$3BFF übertragen und den Fernsehprozessor veran- 


lassen, seine Vorlagen hier zu suchen. Jetzt haben wir 


freien Zugriff auf die Muster und können sie beliebig 
abändern. Wenn wir das zu Fuß machen wollten, 
müßten wir uns nun über den Aufbau der Vorlagen in- 
formieren und anschließend eine schreckliche Bit- 
zählerei beginnen. 

Ohne Softwareunterstützung ist das einfach nicht zu 
machen, zumal wir ja auch noch mehrere dieser Zei- 
chen zu einer geschlossenen Einheit zusammenfassen 
wollen. 

Mit dem hier vorgestellten Spriteeditor wird uns das 
alles abgenommen. Wir können einfach kreativ sein 
und wie auf einem Zeichenbrett auf dem Bildschirm 
die Sprites entwerfen. Es können in einem Satz bis 
zu 14 Sprites mit einer Größe von 3x3 Zeichen ent- 
sprechend 576 Bildpunkten (Pixels) vom Programm 
aus verwaltet werden. Das Programm unterstützt die 
Ersterzeugung und die Editierung bereits erzeugter 
Sprites sowie die Sicherung des im Spritespeicher ab- 
gelegten Spritesatzes auf ein Speichermedium. Bei 
der Spriteerzeugung oder Editierung kann jedem der 
ursprünglichen 9 Charakterfelder eine eigene Vorder- 
grundfarbe zugeordnet werden. Das gibt natürlich 
nur ein grobes Farbraster, ist aber für viele Fälle aus- 
reichend. Außerdem geht es bei diesem Verfahren 
nicht besser. Das Programm ist weitgehend in Basic 
geschrieben. Zeitkritische Programmteile, z.B. für 
die Spriteausgabe oder den Einzug der neu erzeugten 
oder editierten Sprites vom Bildschirm in den Sprite- 
speicher, sind in Maschinensprache ausgeführt. Die 
Sprites werden zusammen mit einem Teil der Maschi- 
nenroutinen im Spritespeicher von $3600 bis $3BFF 
abgelegt. 


ANWENDUNG DER FERTIGEN SPRITES 
IN BASIC- PROGRAMMEN 


Auf die fertigen Sprites kann von beliebigen Basic-Pro- 
grammen aus zugegriffen werden, wenn der Sprite- 
speicherbereich über den Monitor mit L“YNAME“ 
(NAME=Vom Benutzer vereinbarte Bezeichnung) ge- 
laden wurde. Am Programmanfang muß zum Schutz 
des Spritespeichers vor dem Zugriff des Betriebssy- 
stems die Programmzeile 


POKE55,255:POKE56,53:CLR 


eingefügt werden. Bevor sich die Sprites ausgeben las- 
sen, wird der Fernsehprozessor umprogrammiert mit 
der Programmzeile 


POKE 65298,PEEK (65298) AND 251:POKE 
65299,56 


Dies muß mit 
POKE 65298,PEEK (65298 OR 4:POKE 65299,208 


wieder rückgängig gemacht werden, wenn der origina- 
le Zeichensatz verwendet werden soll. 

Die Sprites lassen sich mit SYS13824,# ansprechen. 
Dabei ist für # die Spritenummer explizit (nicht als 
Variable) einzusetzen. Für die Sprites sind die Num- 
mern O bis 13 gültig; die Zahl 14 ruft das Löschsprite 
auf, das ein vorher gesetztes Sprite mit der Hinter- 
grundfarbe überschreibt und damit unsichtbar macht. 
Eine zweite Möglichkeit zur Spriteansprache besteht 
in dem Befehl SYS 13833. Die Spritenummer muß 
hierbei mit POKE in den Speicher 14325 eingegeben 
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werden. Dabei kann natürlich eine Variable benutzt 
werden. Die Nummer der Zeile, in der der obere 
Rand des Sprite erscheinen soll, wird mit POKE in die 
Zelle 14320, die Spalte für den linken Rand in die 
Zelle 14321 eingegeben. Mit POKE 14326,128 wird 
das Sprite invers ausgegeben; der Inversmodus wird 
nach der Ausgabe durch das Ausgabeprogramm selbst- 
tätig gelöscht. 
Nacheinander lassen sich natürlich verschiedene Sprite- 
sätze in den Spritespeicher einladen, wenn man für ein 
aufwendiges Adventure mit 14 Sprites nicht aus- 
kommen sollte. Zu diesem Zweck wurde der RAM- 
Bereich von $3C00 bis $3FFF freigehalten, in dem das 
Programm Supertape (c’t 1986, Heft 2, S. 82-85) 
zum blitzschnellen Laden von der Datasette residieren 
kann. Es steht damit alles zur Verfügung, um aufre- 
sende Spiele mit viel Grafik und Aktion zu entwik- 
keln. Mit dem beigefügten Beispielprogramm wird 
für einen einfachen Fall so etwas demonstriert. 
Anstatt Sprites zu erzeugen, können wir uns mit 
dem Programm auch einen eigenen Zeichensatz her- 
stellen, den wir mit den angegebenen Programm- 
zeilen für die Programmierung des Fernsehprozes- 
sors zur Verwendung bei PRINT- oder CHAR-Befeh- 
len ein- und ausschalten können. 


HANDHABUNG DES PROGRAMMS 


Nach Eintippen und Sichern des Basic-Teiles werden 
mit dem Monitor im Assemblermodus die Maschinen- 
routinen eingegeben. Damit im Spritespeicher über- 
haupt etwas vorhanden ist, laden wir. die Charakter- 
liste aus dem ROM hierhin. Dazu ist im Monitor der 
Befehl T D000 D7FF 3800 gut. Nun sichern wir alles 
zusammen, z.B. auf die Datasette, mit S“SPRITE‘“‘, 
1,3600,3BFF (statt ‘SPRITE‘ kann auch ein ande- 
rer Name gewählt werden). Wenn wir das nächste Mal 
mit dem Programm arbeiten wollen, müssen wir außer 
dem Basic-Teil auch (im Monitor) den Spritespeicher 
laden mit L‘“SPRITE“ (bzw. anderer Name von vor- 
her). 

Das Programm ist weitgehend selbsterklärend. 

Nach Starten mit RUN wird zunächst in den System- 
speicher eine Maschinenroutine eingePOKEt. Deshalb 
dauert es einen Moment, bis das Menü auf dem Bild- 
schirm erscheint. Wichtig für alle Menüpunkte ist es, 
daß man bei Programmhalt entweder auf Fragen ant- 
worten oder durch Drücken der RETURN-Taste sein 
Einverständnis mit einer Fortsetzung des Ablaufs be- 
kunden muß. 

Mit dem Menüteil 1 können alle vorhandenen Sprites 
dargestellt werden. Achten Sie darauf, daß nach jeder 
Auswahlnummer ein “/“ eingegeben wird; andern- 
falls wird die Eingabe nicht richtig interpretiert. Las- 
sen Sie sich auch nicht beunruhigen, wenn die Zif- 
fern über den Sprites unlesbare Hieroglyphen sind, 
ihr Rechner ist noch nicht kaputt. Bei der Darstel- 
lung der Sprites wird, wie bereits ausführlich erklärt 
wurde, der Fernsehprozessor angewiesen, alle Vor- 
lagen für die Ausgaben im Spritebereich zu suchen, 
also auch für die Ziffern. Wenn Sie diese aber verän- 
dert haben, z.B. wenn Sie an den für die Ziffer I 
vorgesehenen Platz zufällig das Hosenbein Ihres 
Adventurehelden eingespeichert haben, dann wird 
die ““1‘ eben als Hosenbein dargestellt, so lange bis 
der Fernsehprozessor wieder auf ROM-Betrieb um- 
geschaltet wird. Dies führt das Programm aus, wenn 
nach der Spriteshow die RETURN-Taste gedrückt 
wird. 

Mit dem Menüteil 2 können Sie ein vorhandenes 


LISTING 


Sprite editieren. Das angerufene Sprite wird zunächst 
in einem Rasterfeld mit 24x24 Punkten vergrößert 
auf dem Bildschirm ausgegeben. Es ist sehr reizvoll, 
sich für den Anfang die von den Commodore-Pro- 
grammierern entworfenen Zeichen ‘anzusehen, be- 
vor man alles abändert. Das Editieren eines Sprites 
wird in der auf dem Bildschirm erklärten Weise 
durchgeführt. Anschließend kann die Vordergrund- 
farbe jedes mit ““0“ abgegrenzten Feldes von 8x8 
Rasterpunkten noch verändert werden. Dazu sind in 
der 3x3-Punktmatrix rechts oben die abzuändern- 
den Stellen mit dem Cursor anzufahren. Nach Drük- 
ken einer Farbtaste muß..noch ein “*x“ gedrückt 
werden. Am Ende geht es mit RETURN weiter. Das 
editierte Sprite wird in Originalgröße ausgegeben 
und kann noch einer letzten Inspektion unterzogen 
werden, bevor es mit Ihrer Genehmigung in den Sprite- 
speicher eingezogen wird. 


Spriteanwendung A 


18 rem sprian ===================16 
28 rem (p) 12/86 commodore welt == 
38 rem -=-----------==== === 
48 rem (c) 11/B6 by dr. u. lotter*-= 
58 rem ne 
68 rem -— 
78 rem basic v3.5 == 
88 rem c16/116 plus4 == 
98 rem ===> == -=-=--- === ann 


188 poke55,255:poke56,53:clr 

118 printchr$( 147): trap278 

128 1i1=14328:sp=14321:ra=65298:sy=1 
3833:nr=14325 


138 pokera,peek(ra)and251:pokeratl, 
56 

148 fori=8to36step3 

158 pokeli,3:pokesp,i:sys13824,2 
168 pokeli,9:pokesp,i:sys13824,2 
178 next 

188 fori=8t037step2 

198 forj=-Bdtol 

288 pokeli,6:pokesp,i+tj:pokenr,j 
218 syssy 

228 forp=8t075:nextp 

238 sys13824,14 

248 nextj 

258 nexti 

268 goto188 

278 a=65298:pokea, 196:pokea+t1,212 
2BO rem =====-=- == == === === === 
298 rem 812277 bytes memory == 
308 rem 8988894 bytes program Se 
318 rem 8988888 bytes variables == 
328 rem BOBHBR bytes arrays =“ 
338 rem 8898988 bytes strings Ss 
348 rem 811383 bytes fre{(®) == 
358 rem -Fs3srs nenn 


18 rem 


308 rem ======--=-=====-=======77 nn 
48 rem (c) 11/86 by u. lotter 
58 rem ratingen 
68 rem == 
78 rem basic v3 5 + maschinenspr.== 
88 rem c16/116 plus 4 == 
98 rem === =-=-======== == 
poke55,255:poke56,53:clr 
printchr$( 147) "mO" 

char,8,6,"t d®98 d7ff 3808" 
char,8,8,"x" 

char,8,198,"g018@"” 

poke1319, 19 
fora=1328t01323:pokea, 13:next 
poke239,5:end 

188 poke65298, 192:poke65299,56:poke 
7480,56 

198 rem *#* maschienprogramm #*#* 
288 fori=13824t014851:reada:pokei,a 
»5=s+ta:next:ifs=32798thenprint"masc 
hinenprg. ok":elseend 

218 data32,145,148,32,132,157,142,2 
45,55,174,245,55,224,14,248,116 

229 data169,8,141,243,55,189, 144,55 
‚141,242,55, 169,55, 133,289, 189 

238 data144,55,133,208,234,174,240, 
55,189,2,216,133,211,189,27,216 

248 data133,212,165,211,133,213, 165 
‚212,41,3,9,8,133,214,234,234 

250 data234,172,241,55,132,218,162, 
0,234,234,234,173,242,55,13,246 

2608 data55, 164,218, 145,211,172,243, 
55,152,72,177,288,164,218,145,213 
270 data232,2380,218,238,242,55,238, 
243,55, 104,224,3,2808,221,238,248 
288 data55,281,8,288, 176, 173,248,55 
‚56,233,3,141,2480,55,169,& 

298 data141,246,55,96,173,21,255,41 
‚127,205, 126,55,240,139,141,244 

308 data55,168,®, 153, 126,55,288, 192 
‚9,288,248,76,16,54,0,8 

318 data162,8,168,0,189,2,216,133,2 
11,189,27,216, 133,212,138,41 

328 data?7,2801,0,288,18,234,234,234, 
169,48, 145,211,208,192,24,288 

330 data249,24,144,26,234,234,234,1 
52,41,7,281,0,208,4,169,48 

348 data288,2,169,15,145,211,288,19 
2,24,208,236,234,234,234,232,224 
358 data24,288, 191,96 

368 rem ** sprite 8-2 fuer sprian * 
378 fori=14336t014544:reada:pokei,a 
-t=t+a:next:ift=15916thenprint"spri 
tes ok" 

388 data®,8,9,8,0,0,0,09,0,28,62,121 
‚127,126,63,56 


398 datad,0,0,0,128,0,0,0,0,1,3,6,1 
3,6,5;1 

488 data252,254,123,61,68,68, 124,12 
0,0,24,48,224,192,0,8,8 

A418 data2498,57,27,15,6,8,8,98,252,28 
6,135,3,1,8,8,8 

420 data®,8,8,128,192,224,120,80,8,0 
‚20,0,8,0,8,8 

430 data®,28,62,121,127,126,63,56,® 
‚08,08,8,128,0,0,8 

448 dataß,1,3,6,12,24,48,0,252,254, 
123,241,2490,240,240, 128 

458 data®,8,8,128,192,96,48,8,0,1,3 
‚7,14,28,56,28 

A468 data252,207,131,1,3,15,28,15,®, 
0,128, 192,128,90,0,8 

478 data1,7,7,308,31,63,63,31, 163,25 
5,255,63,63,255,255, 255 

A488 data®ß,224,224,192,248,248,248,2 
48,31,38,31,15,15,7,3,3 

A498 data211,17,255,255,156,189,255, 
255,240,240,240,248,224,192,192,192 
508 data1,98,0,0,0,8,0,0,255,68,68,6 
0,698,68, 124,92 


518 data128 2 
528 printchr$( 147) 

538 print"$ab..ijk..rst" 
548 print"cde..1imn..uvw" 
558 print"fgh..opq..xyz" 


568 getkeya$:a=65298:pokea, 196:poke 
3+17,212 1 


Im Menüteil 3 wird die Erzeugung neuer Sprites unter- 
stützt. Dieser Teil unterscheidet sich von dem vorher 
beschriebenen Menüteil 2 im wesentlichen dadurch, 
daß am Anfang ein leeres Rasterbild ausgegeben wird, 
in das Sie Ihr Sprite einzeichnen können. Alles weitere 
läuft wie vorher. Es muß hier aber noch auf eine Be- 
sonderheit aufmerksam gemacht werden. Im Sprite 3, 
mittleres rechtes Zeichenfeld, ist der Platz, wo der 
Fernsehprozessor normalerweise die Vorlage für das 
Leerfeld des Charaktersatzes sucht. Wenn wir in die- 
ses Feld etwas hineinschreiben, so wird das nach Ein- 
zug in den Spritespeicher überall auf dem leeren Bild- 
schirm abgebildet. Also keine Panik, wenn der Bild- 
schirm plötzlich so merkwürdig gemustert ist. Falls 
wir das nicht für besondere Effekte ausnutzen wollen, 
können wir mit dem Menüteil 2 das Leerfeld wieder 
freimachen. 

Zum Sichern des Spritebereiches dient der Menüteil 4. 
Falls Supertape installiert ist, muß in Programmzeile 
1640 statt der 1 eine 7 geschrieben werden. Mit 
Menüteil 5 können wir das Programm mit Anstand 
verlassen. 


KOMMENTIERUNG DES PROGRAMMES 
“SPREDI” 


30: Schützen des Bereiches oberhalb S3600 
vor dem Zugriff des Betriebssystems 


Bitte lesen Sie weiter auf Seite 57 
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Spredi 


‚8 rem spriteeditor 
28 rem (p) 11/86 commodore welt == 
32 rem =======-==-==== === === === === 
48 rem (c) 18/86 by dr. u. 
58 rem 

58 rem 
78 rem 
58 rem 
98 rem 
935 poke55,255:poke56,53:clr 

188 gosub 68888 

118 dimda%( 21) :rs=1815:ez=142408 

128 sr=13833:pr=13984:11i1=14328:sp=1 
4321:sn=14325:rv=14326:fa=148889:ch= 
14336 :ra=-65298 

138 data168,8,148,243,55,174,241,55 
‚134,218,174,249,55,189,2,216, 133,2 
11,189,27,216 

148 data133,212,177,213,162,8,234,2 
34,234,234,42,72,144,6,169,168,164, 
218,145,211,184 

158 data2390,219,232,224,8,288,238,2 
38,240,55,238,243,55, 172,243,55,192 
‚8,288, 199,96 

168 fori=-®8to62:reada:pokers+ti,a:nex 
t 
178 
188 


basic 
c16/116 plus4 


scnelr 

color®,1:color1,2 
char1,12,2,"sprite-editor" 
char1,17,4,"”by"” 
char1,14,6,"u.lotter" 
char1,6,18,"sprites darstellen? 


char1,6,14,"neues sprite erzeug 
en?--3” 
258 char1,6,16,"spritebereich siche 
rn?--4"” 

268 char1,6,18,"arbeit beenden?---- 


278 dountillt$="1")or(l t$="2")or( t$= 
"3")or(t$="4")or(lt$="5") :gett$:1loop 

288 color@,2:color1,1 

298 a=val(t$) 

388 scncelr 

318 onagosub338,688,78®, 1688, 1798 

328 goto178 

338 rem###t##tsprite darstellen#**** 

348 scnclr 

358 a$=-"":c$="":z=B 

368 char,5,5,"welche sprites darste 
llen ?” > 

378 char,4,7,"(a/b/.../ in folgende 
zeile:)" 

388 char,5,6,"wenn weiter,taste dru 

ecken!" 

398 char,8,8,""” 


v3.5 _ == 


488 inputa$ 

418 scnclr 

428 Fori=1tolen( a$) :b$=mid$(a$,i,1) 
438 ifb$<>"/"thenc$=c$+b$:goto458 
AAB z=z+1:da%l z)=vallc$) :c$="" 

458 next 

468 da%l[B)=z 

478 ifda%l( 8) >14thengoto358 

4AB8 for i=1toda%( 8) 

498 ifda%( i) >14theni=9®:got0o358 

588 nexti 

518 fori=1toda%( 8) :1%=12-6*(i>1B):s 


X=48*(i>18) :char,4*#(i-1)+s%,1%,str$ 
(da%( i)) :next 

528 pokera,peek( ra) and251:pokera+1, 
56 

538 fori=1toda%( 8) :1%=13-6*(i>1®):s 
%=48*(1i>10) 

548 pokeli,1%+1:pokesp,4*(i-1)+s%:p 
okesn,da%l(i) 

558 sys sr 

568 next 

578 getkeya$ 

5B8 pokera+1,288:pokera,peek(ra)or4 
st$g="" 

598 return 

608 rem###*r*t###tsprite editieren**** 


618 char,1,18,"welches sprite soll 
editiert werden” 

628 inputnr% 

638 char, 1,12,"nummer nach editieru 
ng angeben" 

648 inputn% 

658 scnelr 

668 syspr 

678 fFornv=-@to2 

688 fornh=dto2 

698 a=ch+72*nr%+24#nv+B#nh:hi=intla 
/256) :lo=-a-256*hi 

788 poke213,1lo:poke214,hi 

718 pokeli,8*nv:pokesp,B*nh 

728 sysrs 

738 nextnh 

748 nextnv 

758 na%=nr%:nr%=n% 

768 gosubBAB 

778 return 

758 remtttrt#tsprite erzeugen####** 
798 char,1,10,"" 

888 input"welche nummer soll das sp 
rite haben"; nr% 


818 ifnr%>13 then goto798 

828 scnclr 

838 sys pr 

840 gosub988 

858 for i=17t023:char,25,i,"-----.-- 


te "next 


pokeli, 17:pokesp,38:pokesn,nr% >] 


syssr 
pokera,peek(ra)and251:pokerat1, 


getkeyw$ 
pokera+1,288:pokera,peek(ra)or4 
for i=17t019:char,25,i,"-..---- 
RE BEER ":next 2 

char, 25,22,"gut so? j/n” 
getkeya$ 
char ,25,22,"...---“-- 2... 
ifa$="j"thengoto97® 
goto848 

return 

remt#r#tr#tcursor bewegen#####* 
char,26,3,"cursor mit" 

char ,26,4,"pfeiltasten" 

char, 26,5,”bewegen!” 

char, 26,7,"mit leertaste" 
char,26,8,"fuellen!" 
char,26,18,"mit delete" 
char,26,11,"loeschen!" 

char, 26, 14,rn$+"wenn fertig,"+ 


998 

1288 
1818 
1828 
1938 
1248 
1958 
1268 
rf$ 

1278 
rf$ 

1082 


char, 26, 15,rn$+"returntaste!"+ 


z=-19:s=18 
1898 dountilz$=chr$( 13) :getz$ 
11080 a=-( z$=chr$( 145) ) -2*( z$=chr$( 2 
9)) -3*( z$=chr$( 17)) -4*( z$=chr$( 157) 
)-5#[ z$=chr$( 32)) 
1118 a=a-6*( z$=(chr$( 28))) 
1128 y1=-3072+AB*z+s- 
1138 ch%=peek(y1). 
1148 onagoto121B8, 1228, 1238, 1248, 126 
0,1288 
1158 char,s,z,rn$+"o"+rf$ 
fori=1to48:next 
pokey1,ch% 
loop 
1198 for i=3 to 15:char,25,i,".---- 
ARE se next 
g0t01388 
=-( z-1)*( z>8) :goto1188 
=-(s+1)#( s<23) -23#( s=23) :goto 


- z=-( z+1) #( z<23) -23#( z=23) :goto 


=-( s-1)#(s>B) :goto118® 
goto118B8 
char,s,z,rn$+" "+rf$ 
z$="":goto1188 
ifch%=16®8thenchar,s,z,"Oo 
goto1188 
rem#®=bild in sprite umwandeln* 
fornv=dto2 

1328 fornh=dto2 
pokeli,nv*8:pokesp,nh*8 
a=ch+72*nr%+24*nv+8*nh:hi=int( 


a/256) :lo=a-256*hi 

1358 poke213,1l0o:poke214,hi 

1368 sysez 

1378 nextnh 

1388 nextnv 

1398 t$="":z$-"" + 

1408 remt##r#rH##rtfarbzuordnung####* 
1418 char,26,180,"farbe? j/n" 

1428 getkeya$:ifa$="n"thengoto1588 
1438 i=-® 

1448 forz=8to2 
1458 fors=28t038 
1468 char,s,z,"- 
1478 by=peek( fa+9*na%+i) :i=i+1 
1488 poke2848+AB*z+s,by 

1498 nexts:nextz 

1588 inputa$ 

1518 i=8 

1528 forz=8to2 

1538 fors=28t038 

1548 y1=-29848+AB*z+s 

1558 by=peek(y1) 

1568 pokefa+9*nr%+i,by:i=i+1 
1578 nexts:nextz 

1588 char ,26,108,".....----- 
1598 return 

16088 rem****sprites speichern####*# 
1618 char,8,1@8,” ":input”name des f 
ile";a$ 

1628 scnclr 

1638 char,1,18,"bitte kassette an v 
orgesehene" 

1648 char, 1,12,"position bringen !! 
1658 char, 1,14,"wenn fertig,"+f1$+" 
taste"+fo$+" druecken" 

1668 getkeys$ 

167@ scncelr 

1688 char, 1,18,"press record+play!! 
!"-fori=1t02888:next 

1698 color1,2 

1788 printcl$"monitor"” 

1718 char,2,6,"s "+chr$( 34) +4$+chr$ 
(34) +",7,3608,3bff" 

1728 char, 1,12,"x"” 


1738 char,2,14,"goto1788"” 

1748 poke1319,19:poke239, 1 

1758 fori=1t0o1@:poke1319+i, 13:next 
.1768 poke239,18:end 

1778 senclir:color1,1:t$="" 

1788 return 

1798 end 

68888 rem nachspann =======-=-==--=5= = 
6UB1B rem * fFarbcodes/steuercodes * 
6AA28B rn$=chr$( 818) :f1l$=chr$( 138) 
69838 Fo$=chr$( 132) :rf$=chr$( 146) 
68048 c1$=chr$( 147) 

698858 return 
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Spredi u = 


= werden übernommen 

en. nzas a > 1430: INPUT-Befehl wird hier nur für Pro- 
5 rem & ERBE DEREN am re zur Farbeingabe eingesetzt 
52898 rem BBBBRB bytes variables 1440-1500: Übertragen der Farbcodes aus dem . 
58188 rem BABBBB bytes arrays 


Farb-RAM in den Spritespeicher 
52118 rem BUBBRB bytes strings Vordergrundfarbe auf Weiß stellen 
52128 rem 887583 bytes fre(8) 


1620: 
1630-1690: Drucken der Befehle für Umschaltung 
in Monitormode, Sichern des Sprite- 


BIBn Tem == are anne speichers und Rückkehr in das Basic- 
SEN nn en, Abarbei- 
Fortsetzung von Seite 54 EL. GETTBE: ie e QULIC aden von 
40-50: Einsprung und POKE-Adressen RETURNs“ (CHR$(13)) in den Tasta- 
RS: Spritefeldraster turpuffer und Eingabe der Anzahl in 


EZ: Spritefeldeinzug den Pufferzähler 
SR: Spriteausgabe 


BEISPIELPROGRAMM FÜR DIE 
PR: Punktraster 
FA: Beginn des Farb-RAM ANWENDUNG VON SPRITES 


RA: Register für RAM-ROM-Umschaltg. 
LI: oberste Spritezeile 
SP: linke Spritespalte 


Zuerst müssen mit Hilfe des Spriteprogrammes die 
3 als Vorlage en en ae 3 er- 
& : zeugt und in den Spritespeicher gelesen werden. 
N on Für den Läufer in seinen beiden Bewegungsstellun- 
CH: Anfang der Charaktertabelle i.RAM gen sollten die Nummern O und 1, für den Baum die 
50-90: EinPOKEn des Programms für Ausgabe Nummer 2 vorgesehen werden. Anschließend Sprite- 


des Spritefeldrasters in den freien Be- . speicher mit Menüteil 4 sichern. . 
reich ab $03F7 im Systemspeicher Das kleine Anwendungsprogramm bringt nun Bewe- 


190: ü : : gung in das ganze. Sein Aufbau ist nicht schwer zu 
an. ne en Bacsehum verstehen. Achten Sie auch auf den Gebrauch des 
350-430: Auswertung der Spritenummerntabelle Löschsprites 14 und die Umschaltung des Fernseh- 

und Überprüfung auf Zahlen <14 und rozessors. Wenn Sie mit STOP aussteigen, sollten 
Anzahl <14 ie anschließend mit GOTO 190 den Fernsehpro- 
440: Ausgabe der Spritenummern; bei mehr zessor wieder auf ROM-Betrieb bringen. Wenn Sie 
als 10 Sprites zweizeilig > Lust haben, dann können Sie das Bild durch ; 
450: Umschaltung des Fernsehprozessors Sprites Ihrer eigenen Kreation, z.B. eine wilde Bestie 
auf RAM als Verfolger, erweitern. 


460-490: EinPOKEn von Zeilen und Spalten der 
500-520 Werten nr Tasendı k und Umschal 
—520: arten auf lastendruck un mschalten 

des Fernsehprozessors auf ROM TI PS & TRICKS 

590: Ausgabe eines Punktrasters 

600-670: Ausgabe des Sprites in vergrößerter Form | PEEK 
1n.das.Rasterfeld auf. dem Bildschirm. DE 1. >>> T>>ovNCMm——t VI 
bei wird ein Zeichenfeld nach dem ande- Peek(1) Abfrage der Datasette: Folgende Werte 


ren ausgegeben. In 312/214 ($D5/$D6) ergeben diese Zustände: 
wird der zugehörige Zeiger auf die Bytes 200 aus 
der Charaktertabelle oberhalb von 192 Play/Rew 
$3800 installiert. 208 Play/Record 
790-830: Ausgabe des neuen oder editierten Sprite 216 Störung 
in Originalgröße. Weiter bei Tastendruck f Peek(239) Anzahl der Zeichen im Tastaturpuffer 
nach Umschalten des Fernsehprozessors (2038) liest Tastaturpuffer aus 


in den ROM-Betrieb 
1020-1040: Abfragen des Pfeilkreuzes, der DELETE- | sys 
und der Blanktaste, solange, bis 


RETURN-Taste gedrückt wird 1525 schaltet die eingebaute Software ein 
1050-1040: Erzeugung eines blinkenden Cursors, (Plus4) 

wenn keine oder keine passende Taste 42995 lädt Programm von Kassette ins laufende 

gedrückt wird Programm 
1120-1130: Ausgang bei Drücken der RETURN- 42974 savet Programm im laufenden Programm 

Taste ü auf Kassette 
1140-1170: Cursor-Bewegung im Punktrasterfeld 43922 Renumber im Programm (geht nur einmal) 
1190: Inverses Leerzeichen drucken i 51388 listet das Directory in laufende Program- 
1210: Inverses Leerzeichen durch Überschrei- me (Zeitschleife anhängen) 

ben mit dem Rasterzeichen löschen 55435 löscht Bildschirm und setzt Cursor Home 
1240-1310: Einzug des Sprites vom Bildschirm in 56944 ganzer Bildschirm als Fenster 

den Spritespeicher. Im übrigen s. Kom- 65520 Plotroutine 

mentar zu Zeile 600 bis 670 65526 Reset 
1360-1420: Ausgabe eines 3x3-Punktraster zur 65529 Reset 

Farbeingabe. Vorhandene Farbverein- 65532 Monitoraufruf 
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LISTING 


ATLANTIK- 
KRIEG 


Dieses Spiel für die C 16/116/Plus 4-Computer simu- 
liert die Fahrt auf einem U-Boot. Es stehen folgende 
Kommandos zur Verfügung, um das U-Boot zu be- 


dienen: 

F = Fahrt machen 
TA = Tauchen 

TO = Torpedo 

PE = Periskop 

AT = Auftauchen 


Nach dem Anfangsbild mit der dazugehörigen Melo- 
die kann der Spieler sich entweder die Erläuterungen 
holen oder direkt das Spiel beginnen. Hier ist es noch 
möglich, dem eigenen U-Boot einen klangvollen Na- 
men zu geben. Als nächstes erscheint das eigentliche 
Spiel: Der Kapitän (=Spieler) erhält Informationen 
über den derzeitigen Standort seiner Gegner, deren 
Gewicht und die Art der gegnerischen Schiffe. Nun 
muß versucht werden, dem Feind auszuweichen, 

ihn zu bekämpfen oder nur zu beobachten. Doch 
nicht alle Torpedos treffen, außerdem wehrt sich der 
Gegner natürlich. So muß nun versucht werden, die 
vorgegebene Zeit zu erreichen, ohne selbst versenkt 
zu werden, außerdem sollte natürlich möglichst viel 
gegnerische Tonnage versenkt werden. 
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Atlantik Krieg 


® rem atlantik krieg ======--=-== 016 
i rem (p) commodore welt = 
2 rem ==========>=-=----2====== 200 
3 rem (c) by = 
4 rem reinhard rieger = 
5 rem ] u 
5 rem version 3.5 4Bz/ascci = 
7 rem c16/c116/plus 4 + 1531 = 


rem ==================7 222222 
12 ti$="BOO990" :gosub14BM:scnclr:co 
tori;2 

11 color®,1:color4,1:printa3$a4$"at 
lantik krieg”:printa3$"ein u-boot k 
ampfspiel" r 

12 printf1$a1$g3$:printf2$c1$c4$c7$ 
13 printg?$c4$a5$g5$a8$c8$c7$ 

14 printg5$a7$a5$c6$g4$a8$d1$ 

15 printg6$a5$d3$g4$a8$ 

16 printa1$" kennst du die spielre 
geln (j/n)" 

69 gosub1228 

78 color1,2:ifa$<"j"thenprint 
tkeya$ 

71 ifa$="j"thenvol8ß:sound1,383,15:g 
ot0o98 

72 ifa$="n"thenvol8:sound1,453,28:g 
oto?7?4 

73 goto?7® B 

74 senclr:printa3$a3$a4$f4$c1$b1$e3 
$e2$b2$ 

75 printfS5$c2$b5$g4$"atlantik krieg 
"p5$ 

76 printf6$g9$b 1$b6$64$cA$gB$b3$b6$ 
b2$ 

77 printf7$g9$b5$g4$"von r. rieger 

zt42"h5$ 

78 printf8$g9$b3$e4$b6$b4A$ 

79 printf2$33$" du bist kapitaen e 
ines deutschen":print" u-bootes wa 
erend des zweiten" 

88 print” weitkrieges. deine aufga 
be ist es"”:print” so viele schiffe 
wie moeglich zu" 


{6} 


..n 


:ge 


81 print” versenken,bevor der fein 
d dich":print,"“ vernichtet !!"” 
82 print” du bist auf einen feindl 


ichen konvoi”:print” gestossen, de 


r kampf beginnt" 


83 printa3$” kommandos...... tt ta= 
tauchen” 

8A print" #uxunneeeeenene 88 to=tor 
pedo" 

85 print" f=fahrt machen *** pe=per 
iskop"” 

86 print” #aaxeeeeuueeee 8 at=auf 


tauchen "a3$:print” du hast 9899348 
min. zeit" 
98 printa3$"gebe deinem boot einen 


namen"; 

91 inputa$:vol8:sound1,571,28:scncl 
r 

92 t=42 SR. 
94 d=eint(rndf{ 1) *#- 18) 
95 ifd=8then42B 

188 ifd<>i1then1i2 

118 r$="r zerstoerer" 
111 w=2198 

112 ifd<>2then117 

115 r$="r zerstoerer begleiter" 

116 w=1358 

117 ifd<>3then122 

128 r$="s torpedo-boot” 

121 w=B8 

122 ifd<>4theni27 

125 r$="s u-boot” 

126 w=BQ8 

127 ifd<>5then132 

138 r$="s minensuchboot" 

131 w=658 

132: g>1 

133 goto135 

134 q=2 

135 printa3$a3$a3$"britische”;r$;" 
ER N tonnen" 

136 ifd>6then42B 

137 a=int(rnd( 1) #18) 

138 t$=ti$:ift$=>"89083498"thenprint” 

die zeit ist verstrichen ";ti$:goto 
1198 

139 printa3$a3$"” verstrichene zeit 
"22,8 

148 printa3$” befiehl, 
141 inputc$ 

142 c$=mid$(c$,1,2) 
143 ifc$="pe"thenvol8:sound1,453,5®8 
:senclr:goto32B 

144 ifc$="to"thenvolß:sound1,262,28 
:goto78BB 

145 ifc$="ta"thenvolß:sound]!, 784,38 
:scenelr:goto998 

146 ifc$="at"thenvolß:sound1,784,38 
:senelr:goto1185 

4147 ifc$="f"thenvol8:sound1,596,2®: 

scnclr:goto428 

149 goto148 

328 ifd>Sorg>®then?6B 

338 ifa>1@then?68 

428 a=int(rnd( 1)*1®B) 

499 ifa<>8then5B4 

sua@ r$="r frachter"” 

581 w=8988 

584 ifa<>1then589 

585 r$="r tanker"” 

586 w=11888 

589 ifa<>2thenS514 

518 r$="r transporter" 


+ 


kapitaen !"; 


. B6B 


® 
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w=4108 

ifa<>3then519 

r$="s munitionsschiff"” 
w=7808 
ifa<>4then524 
r$="r schwerer 
w=9688 

g=2 
ifa<>5then529 
r$="r leichter kreuzer"” 

w=7388 

q=3 

ifa<>6thenS34 

r$="r truppen transporter” 
w=5888 

ifa<>7then539 

r$=" fregatte"” 

w=4988 

q=-4 

ifa<>8then544 

r$="s schlachtschiff"” 

w=31888 

ifa<>9then549 

r$="r flugzeugtraeger"” 

w=2B808 

ifa<>18then94 

r$="s u-jagdboot" 

w=328 

q=5 

print"britsche";r$;" greift an 


511 
514 
515 
516 
519 
528 
521 
522 
524 
525 
526 
527 
529 
538 
531 
534 
535 
536 
537 
539 
548 
541 
544 
545 
546 
549 
558 
551 
552 
768 
778 
788 
B00 
818 

ssen"; 

828 inputr:vol8:sound1,262,35 

838 ifr<Bort-r<dthenB1id 

848 ifr<>int(r)then818 

858 E=t-r 

s=int(rnd( 1) *18) 

ifs>rthen8682 

q=q475 

8998 ifgq<=Bthen99d 

895 q$="zerstoert":vol8:sound1,77®, 
28:sound1,818,28 

988 ifq>=ithen93d 

985 q$="sank":vol8:sound1,778,28:so 
und1,818,28:sound1,778,38 

918 o=-o+tw 5 

Ii=TrHM fi 

printr;"torpedos abgefeuert - 
treffer" 

ifs>8then943 

ifs<>8then958 

volB 

forg=-8t0688step+S 
sound3,g,®:nextg 


kreuzer" 


goto14B 

ifg=-Borg>8then888 
printt;"torpedos uebrig" 
print"wieviele torpedos abschie 


878 
858 


60 


946 
947 
958 
953 
955 
968 
978 
988 
985 


forg=-688toßstep-5 
sound3,g,@®:nextg 

ifs<=®then96B 
r1$=right$(r$,1len{r$)-2) 

print” -";r195” "798% 
ifg=-Bandd>@then1148 
ift<1then116®8 

ifg<1then94 

goto148 

998 ifd>=4then 1882 

995 print” jetzt ist das deutsche u 
-boot ";a$;" von angriffen frei" 
1888 ifd>6then148 

1818 u=int(rnd( 1) #18) #258+588 
1828 print"entfernung zum ";r1$"” 
iefe der ";a$ 

1838 printu;"meter 
fuss"” 
1848 
1858 
1868 
1878 
1888 
1998 


u=u-258 

z=z2+25 

ifu>-258then 1838 
ifr1$="torpedo-boot"then1188 

n=int(rnd( 1) #19) #25+38 
ifn+42>zandn-42<zthen112B 
1899 u=z=8 

1188 print"die deutsche ";a$;" ist 
unversert” 

1181 q=B 

1182 goto94A 

1183 z=z-25 

1184 print"entfernung 
der ";a$ 
11985 printz;"” 
meter" 

1196 z=z-25 
1187 u=u+258 
1188 ifz>-25then1185:i 

1119 goto94A 

1122 print"die ";a$;" wurde mit unt 
erwasserschuessen versenkt" 

1121 volB 

1122 forp=-8to4B8dstept2 

1123 sound3,p,@:nextp 

1124 forp=-498toßstep-2 

1125 sound3,p,®:nextp 

1138 goto1188 

1148 print"die ";a$;" wird durch ka 
nonenschuesse versenkt die ein zers 

toerer abschoss" 

1141 vol5S 

1142 fory=-1898t0388step-2 

1143 sound1,y,®:nexty 

1144 vol6:forh=-498to®@step+5 

1145 sound3,h,@:nexth 

1146 vol8:fori=8t0688step+5 

1147 sound3,i,1:nexti 

1148 fori=688toßstep-5 

1149 sound3,i,1i:nexti 


":r1$;" tiefe 
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1158 goto1188 

1168 print"die ";a$;"” hat alle ihre 
torpedos verbrauchtt” 

1178 ifo<=-8then1188 

1175 print"5 gratuliere zur erfolgr 

eichen ausfahrt":gosub 1228 

1188 print 

1198 print"das u-boot "-a3$;" hat in 
sgesamt ";1;" schiffe versenkt” 
1288 print"die versenkte feindliche 


tonnage ist ";o;" tonnen" 
1284 printai$"....--- nochmal...[j/n 
a; 
1285 inputi$ 
1286 ifi$="j"thenvolß:sound1,383,15 
:run 
1287 ifi$="n"thenvol8ß:sound1,571,68 
:g0ot0o1388 
1288 goto1284 
1218 end 
1228 readn,m:ifn=8then1248 
1225 geta$:ifa$<>""then1248 
1238 vol8:sound2,n,m:goto1228 
1248 restore 
1260 data643,18,643,28,739,18,778,1 


2,798,28,770,18,739,10,778,28,739, 1 
8,704,19,739,28 

1270 data643,18,643,18,685,20,739,1 
0,685, 10,643,28,643,20,596,28,643, 1 
0,596,18,571,28 

1271 data643,180,643,28,739, 18,778, 1 
0,798,20,778,18,739,180,778,28,739, 1 
0,704,18 

1272 data739,28,643,18,643,18,685,2 
0,739,180,685,10,643,28,643,20,596,2 
0,643, 18,596, 18 

1273 data571,28,643,18 

1280 data739,10,798,19,798,18,770, 1 
0,739,1@,704,10,739,28,643,48,739,4 
0,798,48 

1282 data739,28,643,18,643,18,739,1 
0,643,18,739,18,77@0,18,798,28,818,2 
0,798,20,778,10 

1283 data739,10,770,18,739,20,739,4 
0,2,8 : 

1284 return:goto119 

1388 scencelr:printf6$a1$a2$e8B$gS$e5$ 
g6$a6$g5$e6$ 

1382 printf6$a2$a6$g9$a6$g4$a6$g5$a 
6$85$a6$g5$a6$ 

1384 printf6$a2$a6$g9$36$g4$a6$g5$a 
6$85$a6$g6$a6$ 

13086 printf6$a2$e7$g6$a6$g5$a6$gA$a 
6$g5$3a6$g6$a6$ 5 

1388 printf6$a2$a6$g9$a6$g5$a6$g4$a 
6$585$36$g5$a6$ 

1318 printf6$a2$e8$g5$a6$g6$e5$g5$e 
6$ 

1328 end 


14808 al$=chr$( 17) +chr$( 17) +chr$( 17) 
+chr$( 17) +chr$( 17) 

14198 a2$=chr$( 29) +chr$( 29) +chr$( 29) 
+chr$( 29) +chr$( 29) +chr$( 29) +chr$( 29 
) Y 
1428 a3$=chr$( 17) :a4$=chr$( 29) 

1438 f1$=chr$( 38) :f2$=chr$(5) 

1448 g1$=chr$( 184) +chr$( 184) +chr$f 1 
84) +chr$( 184) +chr$( 184) 

1441 g2$=chr$( 162) +chr$( 162) +chr$( 1 
62) +chr$( 162) +chr$( 162) 

1442 g3$=g2$+g1$+g2$+g1$+g2$+g1$+g2 
$+g1$ 

1443 g4$=chr$( 168) :g5$=chr$( 168) +ch 
r$( 168) :g6$=chr$( 168) +chr$( 168) +chr 
$( 168) 

1444 g7$=chr$({ 168) +chr$( 168) +chr$t 1 
68) +chr$( 168) :g8$=g5$+g6$:g9$=-g6$+g 
6$:c1$=-g6$+g7$ b 

1445 c2$=g7$+g7$:c3$=g7$+g8$:c4$=gB 
$+g8$:c5$=c4$+c4$:c6$=c4$+c5$ 

1446 a5$=chr$( 18) :36$=chr$( 166) :a7$ 
=chr$( 127) :a8$=chr$( 146) :f3$=chr$( 1 
44) :c7$=chr$( 188) 

1447 c8$=chr$( 185) :c9$=chr$( 175) :di 
$=chr$( 183) 

1448 d2$=chr$t( 175) +chr$( 175) +chr$ft 1 
75) +chr${ 175) +chr$( 175) +chr$( 175) +c 
hr$( 175) +chr$( 175) 

1449 d3$=42$+d2$+d2$+d2$ 

1458 f4$=chr$( 28) :f5$=chr$( 156) :f6$ 


» =chr$( 31) :f7$=chr$( 159) :f8$=chr$t( 15 
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8) 
1451 b1$=chr$( 117) :b2$=chr$( 185) :b3 
$=chr$( 186) :b4$=chr$( 187) :b5$=chr$t 
98) :b6$=chr$( 99) 

1452 e1$=chr$( 99) +chr$( 99) +chr$( 99) 
+chr$( 99) +chr$( 99) +chr$( 99) 

1453 e2$=chr$( 99) +chr$( 99) +chr$( 99) 
.e3$=e1$+e1$:e4$=e1$tre3$ 

1454 e5$=chr$( 166) +36$:e6$=eS$+a6$: 
e7$=e5$+e5$:eB$=e5$+e6$ 
1688 return 

1618 rem atlantik krieg 
c16 
1628 


1638 


1648 


rem 868671 bytes memory = 


rem 887421 bytes programm 


rem 888888 bytes variables 


rem 880988 bytes arrays 


rem 88980988 strings 


rem 953258 free(®B) 


« 


LISTING | j 


EINSIEDLER 


Wohl jeder kennt das berühmte Spiel „Solitaire“. 
Hier wurde eine Variante für den C 16 geschaffen, 
die dem Original in nichts nachsteht. Für Anfänger 
hier noch einmal die Spielregeln: 

Auf einem kreuzförmigen Feld mit 32 Spielsteinen 
muß versucht werden, soviele Steine wie möglich zu 
entfernen. Dies geschieht durch Überspringen des 
Steines mit dem dahinterliegenden. Springt ein 
Stein über den anderen, so verschwindet der über- 
sprungene Stein. Auf diese Weise soll das ganze Feld 
abgeräumt werden. 

Gesteuert wird folgendermaßen: 

In der Grafik des Spielfeldes steht ein Pfeil. Diesen 
Pfeil kann man mit den Cursortasten über das Spiel- 
feld bewegen. Der Pfeil wird unter den Stein gestellt, 
der als nächstes springen soll, dann wird >Space< 
gedrückt. Der Stein erscheint nun als Stern. Nun 
wird der Pfeil auf das Feld gelenkt, auf-welches ge- 
sprungen werden soll, dann wird neuerlich >Space< 
gedrückt. Der erste Stein springt über den zweiten 
in seine neue Position, der zweite Stein verschwindet 
und es entsteht ein Leerfeld. Natürlich ist es nicht 
möglich, Falscheingaben zu machen und beispiels- 
weise über mehrere Steine zu springen. Dies quit- 
tiert der Computer mit dem Löschen der ersten 
Eingabe. 


Am Programmanfang kann der Spieler auch noch 
verlangen, daß ihm der Lösungsweg zu dem Spiel ge- 
zeigt wird. Damit nun nicht jeder versucht, diesen 
gleich vollkommen nachzuspielen, wird der Lösungs- 
weg ziemlich schnell durchgespielt. So ist der Spieler 
auch weiterhin immer noch ein bißchen auf sein ei- 
genes Gehirn angewiesen, um die knifflige Aufgabe 
zu lösen. Wer überhaupt keinen Erfolg hat, kann die 
Zeitschleife des Lösungsweges natürlich entspre- 
chend vergrößern und damit den Verlauf verlangsa- 
men, doch dies ist ja nicht der eigentliche Sinn des 
Spieles. 


Ist man nicht mehr in der Lage, einen Sprung durch- 
zuführen, kann man das Spiel mit der Eingabe von 
>x#< beenden. 

Mit gerade 2200 Bytes Speicherbedarf stellt dieses 
Programm doch eine hervorragende Leistung dar. 


NETZTEIL- 
BERECHNUNG 


Mit diesem Programm können Netzteile und Gleich- 
richterschaltungen berechnet werden. Nach dem Pro- 
grammstart erscheint das Hauptmenü, in dem folgen- 
de Punkte ausgewählt werden können: 

1. Trafoberechnung 

2. Einweggleichrichtung 

3. Zweiweggleichrichtung 

4. Brückengleichrichtung 

5. Programmende 


Unter Menüpunkt eins können nun Trafos errechnet: 
werden. Es müssen folgende Werte eingegeben werden: 
1. Primärspannung 

2. Anzahl der Sekundärspannungen 

3. Sekundärspannungen 

4. Sekundärstärke in-Ampere 


Nach Eingabe der Werte errechnet das Programm, wel- 
cher Trafokern verwendet werden muß und welche 
Primär- sowie Sekundärwicklungen erforderlich sind. 
Die weiteren Menüpunkte, die man nach erfolgter 
Berechnting wieder auswählen kann, geben Auskunft 


über die verschiedenen Schaltungsmöglichkeiten. 


Dazu wird das Schaltbild in der oberen Bildschirm- 
hälfte dargestellt. 

Nach der Eingabe der Stromspannung und -stärke so- 
wie der maximalen Brummspannung berechnet das 
Programm den notwendigen Trafo, Dioden, Konden- 
satoren sowie die Brummfrequenz. 

Das Programm läuft auch problemlos auf allen ande- 
ren CBM-Rechnern! 


(Zu Programmen ab Seite 67) 
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ANZEIGENSERVICE 


Die große Börse für jeden Zweck in der CBM REVUE / COMMODORE-WELT. Kostenlos für Privat-Inserenten. Spottbillig für 
gewerbliche Anbieter. Einfach Coupon ausschneiden, fotokopieren o.ä., ausfüllen und ab die Post — Freimachen nicht vergessen! — 
Unsere Adresse steht auf dem Coupon, ebenso die Preise für gewerbliche Anbieter! Achtung! Wir weisen ausdrücklich darauf hin, 
daß wir offensichtlich gewerbliche Anzeigen nicht kostenlos veröffentlichen und uns jedweden Abdruck kostenloser Anzeigen vor- 
behalten müssen, insbesondere, wenn deren Inhalt nicht CBM-typisch ist oder gegen geltendes Recht verstößt. Private Chiffrean- 
zeigen werden nicht aufgenommen. Für Privatanbieter: maximal acht Zeilen a 28 Anschläge. Für gewerbliche Anbieter: 5 DM p. mm. 


Name 


COMMODORE-WELT 
Anzeigenabteilg. Vorname 
Postfach 1107 Straße/Hausnr. 
8044 Lohhof Plz/Ort 


DAS SONDERANGEBOT: 
PRIVATE KLEINANZEIGEN 
KOSTENLOS! 


Das bietet Ihnen COMMODORE-WELT: KLEIN- 
ANZEIGEN SIND KOSTENLOSE FÜR PRIVATAN- 
BIETER! Suchen Sie etwas, haben Sie etwas zu ver- 
kaufen, zu tauschen, wollen Sie einen Club gründen? 
Coupon ausfüllen, auf Postkarte kleben oder in Brief- 
umschlag stecken und abschicken. So einfach geht 
das. Wollen Sie das Heft nicht zerschneiden, können 
Sie den Coupon auch fotokopieren. Oder einfach den 
Anzeigentext uns so schicken, auf Postkarte oder im 
Brief. Aber bitte mit Druckbuchstaben oder in 
Schreibmaschinenschrift! 

Und: Einschließlich Ihrer Adresse und/oder Tele- 
fonnummer sollten acht Zeilen a 28 Anschläge nicht 
überschritten werden. 

ACHTUNG: WICHTIGER HINWEIS! 

Wir veröffentlichen nur Kleinanzeigen privater In- 


serenten, keine gewerblichen Anzeigen. Die kosten 
pro Millimeter DM 5.00 plus Mehrwertsteuer! 

Wir versenden für Privat-Inserenten keine Beleg- 
Exemplare! 

Chiffre-Anzeigen sind nicht gestattet! Wir behalten 
uns vor, Anzeigen, die gegen rechtliche, sittliche oder 
sonstige Gebote verstoßen, abzulehnen! 
Anzeigenabdruck in der Reihenfolge ihres Eingangs, 
kein Rechtsanspruch auf den Abdruck in der nächsten 
Ausgabe! 

Die Insertion ist nicht vom Kauf des Heftes abhängig! 
Wir behalten uns vor, Anzeigen, die nicht zum The- 
menkreis des Heftes —- Computer — gehören, nicht ab- 
zudrucken oder sie nur insoweit zu berücksichtigen, 
wie es der Umfang des kostenlosen Anzeigenteils zu- 
läßt. 


20/64/1228 
16 / P4 / 116 


Das unabhängige Commodore- Magazin 


KOMNT REGELMÄSSIG ZU IHNEN 
INS HAUS 


Finden Sie Ihre COMMODORE-WELT nicht am 
Kiosk? Weil sie schon ausverkauft ist? Oder „Ihr” 
Kiosk nicht beliefert wurde? Kein Problem! Für 
ganze 60 DM liefern wir Ihnen per Post zwölf 
Hefte ins Haus (Ausland 80 DM). Einfach den 
Bestellschein ausschneiden — fotokopieren oder 
abschreiben, in einen Briefumschlag und ab per 
Post (Achtung: Porto nicht vergessen). COMMO- 
DORE-WELT kommt dann pünktlich ins Haus. 


WICHTIGE RECHTLICHE 
GARANTIE! 

Sie können diesen Abo-Auftrag 
binnen einer Woche nach Eingang 
der Abo-Bestätigung durch den 
Verlag widerrufen — Postkarte ge- 
# nügt. Ansonsten läuft dieser Auf- 

trag eneil: A N 
< wenn ihm nicht vier Wochen vor 
N _ Ablauf widersprochen wird, weiter. 


NUTZEN SIE UNSEREN BEQUEMEN POSTSERVICE 


ABO-SERVICE-KARTE. 


v- Ja, ich möchte von Ihrem Angebot zwölf Ausgaben an untenstehende 
16/6 COUPON Gebrauch machen. Anschrift. Wenn ich nicht vier Wo- 
Bitte senden Sie mir bis auf Wider- chen vor Ablauf kündige, läuft diese 

ruf ab sofort jeweils-die nächsten Abmachung automatisch weiter. 


Ich nehme zur Kenntnis, Name ee =. 7 EEE UM ERLDEBEBER N 

daß die Belieferung Vorname 

erst beginnt, wenn die TE . ie - <= 

Abo-Gebühr dem Verlag Straße/Hausnr. nn 

zugegangen ist. Plz/Ort__ ER EEE EEE 
Ich bezahle: 


D per beiliegendem Verrechnungsscheck 

OD) gegen Rechnung 

OD) bargeldlos per Bankeinzug von meinem Konto 

bei (Bank) und Ort __ HERR re EN 
Kontonummer ____ BU LTE FE EUER er 


Ex Bankleitzahl___—— een en re 
COMMODORE WELT (steht auf jedem Kontoauszug) 


ABO-SERVICE 16/6 
POSTFACH 1161 
D-8044 Von meinem unbtaptichericht habe ich Kenntnis genommen. 


UNTERSCHLEISSHEIM Unterschrift _ r ee 2 SE AFFE 
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an u nn rm EI 0 


Unterschrift _ u BERND NET 


— PROGRAMMSERVICE 


Hiermit bestelle ich in Kenntnis Ihrer Verkaufsbedingungen die Listings dieses Heftes auf 
OD Kassetten zu 40,- DO Disketten zu 40,- (16er) 


Ich zahle: 
Zutreffendes bitte ankreuzen! 


per beigefügtem Scheck ( ) Schein ( ) 
Gegen Bankabbuchung am Versandtag ( ) 


Meine Bank (mit Ortsname) ___ u e WE ET 5 
Meine Kontonummer __ — FERAEST = 

Meine Bankleitzahl an # (steht auf jedem Bankauszug) et 

Vorname __ 1 ___ Nachname____ RER ER en 
Str./Nr. : zäh Plz/Ort __ BEN: 2 


Verkaufsbedingungen: Lieferung nur gegen Vorkasse oder Bankabbuchung. Keine Nachnahme. Umtausch bei 
Nichtfunktionieren. 16/6 


Unterschrift_ 
Bitte ausschneiden und einsenden an 


COMMODORE WELT 
KASSETTENSERVICE 16/6 
POSTFACH 1161 

D-8044 UNTERSCHLEISSHEIM 


LESER WERBEN LESER 


GEWINNEN SIE EINE COM- 
PUTER-UHR! Und zusätzlich 
eventuell noch ein großes Com- 
modore-Buch. Oder ein Paket 
Disketten. ODER AUCH EINEN 
COMMODORE-DRUCKER - 
ODER EINE DISKETTENSTA- 
TION! Wie? Sie werben einen 
Abonnenten. Dann haben Sie auf 
jeden Fall schon die Computer- 
Uhr gewonnen. Zusätzlich ver- 
losen wir unter allen, die mit- 
machen, jeden Monat vier weitere 
wertvolle Preise. Und alle sechs 
Monate gibt es einen Hauptpreis 
unter allen Abo-Werbern zu - an 
gewinnen. Also: Mitmachen. Mit- Straße/Hausnr 


Der neue Abonnent war bisher 
noch nicht Bezieher dieser Zeit- 
schrift. 

Als Prämie erhalte ich nach Ein- 
gang des Abo-Entgeltes auf jeden 
Fall eine Computer-Uhr, wie ab- 
gebildet, und nehme zusätzlich 
noch an der Verlosung des Monats. 
sowie der haibjährlichen Haupt- 
preise teil. Mir ist bekannt, daß 
der Rechtsweg bei den Verlosun- 
gen ausgeschlossen ist. 

Meinen Preis senden Sie an 


RRRERTER 


Herrn/Frau____ 


: ne der Name fi Ne 
gewinnen. 
ee en x >“ Straße/Hsnr. we. 
552°25°, ER EEE Plz/Ort 


(Bitte ausschneiden und zusam- 
Ja, ich mache mit beim Abo- als neuen Abonnenten der COM- men. mit der Abo-Bestellkarte 
Wettbewerb. Ich habe MODORE WELT geworben. links einsenden!) 16/6 
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Haben Sie einen Commodore VC 20 oder C 64? 
Einen 16/116, Plus 4? Oder einen 128? Können Sie 
programmieren? In Basic oder Maschinensprache? 
Dann bietet COMMODORE-WELT Ihnen die Mög- 
lichkeit, mit diesem Hobby Geld zu verdienen! 

Wie? Ganz einfach. Sie senden uns die Programme, 
die Sie für einen Abdruck als geeignet halten, zusam- 
men mit einer Kurzbeschreibung, aus der auch die 
verwendete Hardware — eventuelle Erweiterungen — 
benutzte Peripherie — hervorgehen muß (Schauen Sie 
sich dazu den Kopf unserer Programmlistings an.) 

Benötigt werden: Zwei Listings des Programms 
sowie eine Datenkassette oder Diskette! Wenn die 
Redaktion sich überzeugt hat, daß dieses Programm 
läuft und sich zum Abdruck eignet, zahlen wir Ihnen 
pro Programm je nach Umfang bis zu DM 300,-! 


Name des Einsenders: 


VERDIENEN SIE GELD 
MIT IHREM COMPUTER! 


Sollten Sie keinen Drucker haben, genügt der Daten- 


träger. 

Sie erhalten Ihre Kassette/Diskette selbstverständ- 
lich zurück, wenn Sie einen ausreichend frankierten 
Rückumschlag mit Ihrer Adresse beifügen. 


Bei der Einsendung müssen Sie mit Ihrer Unterschrift 
garantieren, daß Sie der alleinige Inhaber der Urheber- 
Rechte sind! Benutzen Sie bitte anhängendes Formu- 
lar!ı (Wir weisen darauf hin, daß auch die Redaktion 
amerikanische und englische Fachzeitschriften liest 
und „umgestaltete”’ Programme ziemlich schnell er- 
kennt). 

Um Ihnen die Arbeit zu erleichtern, finden Sie hier 
ein Formular. Sie können es ausschneiden oder foto- 
kopieren. 


Straße/Hausnr./Tel.: 
Plz/Ort: 


Hiermit biete ich Ihnen zum Abdruck folgende(s) Programm(e) an: 


Benötigte Geräte: 


Beigefügtt ( )Listings ( ) Kassette ( ) Diskette 


Ich versichere, der alleinige Urheber des Programmes zu sein! 
Hiermit ermächtige ich die Redaktion, dieses Programm abzudrucken und wirtschaftlich zu verwerten. Sollte es 
in den Kassetten-Service aufgenommen werden, erhalte ich auch dafür eine entsprechende Vergütung, das Copy- 


right geht insoweit auf den Verlag über. 


Rechtsverbindliche Unterschrift 


COMMODORE WELT 
PROGRAMM-REDAKTION 
POSTFACH 1161 

D-8044 UNTERSCHLEISSHEIM 


FEFinsjiedlerspiel 


18 rem einsiedlerspiel ==========16 
28 rem (p) commodore welt team == 


48 rem (c) by e. schulz == 
schoenwälde == 


78 rem basic v3.5 == 

88 rem c16/116 plus4 c128B == 
98 rem ============================ 

95 gosub 12828 

OA PBrIiNntel$ETE" -.- nm une das 

einsiedlerspiel" 

118 printc1$"” zum setzen faehrst du 
mit den cursor- 

128 printc1$" steuertasten unter de 

n zu setzenden 

138 printc1$” stein, drueckst space 
und faehrst dann 

148 printc1$"” unter die zielpositio 

n und drueckst 

158 printc1$" erneut space." 

168 printc1$" mit (*) kannst du das 
spiel beenden.” 

178 printc1$c1$" waehle eine der 3 

moeglichkeiten 

188 printc1$"” 1 loesung 

198 printc1$" 2 = volles feld 

208 geta$:a=valla$) :ifa<lora>2then2 


218 onagoto228,228 
220 printcl$c1i$": a: 27 or cn das eins 


iedlerspiel 
238 print:print"trreeserseneneeeeee 


KECHESHHRERHEENENTIER 
235 rem die punkte sind platzhalter 
fuer leerzeichen!! 


240: BLTINErTS". 2:2: 2:08 er > aaR 
245, pramErig. „za nee aRaQ 
250 printer”... were RRARR 
a8 

268 printri$” :. 22:5: 0,04- ARaAaWR 
a8 

278 printri$"....2-.--.-- >, aaaaı 
ga 

275 Brinert$" :-.2: men nee aa—g 
2808: printri$" 2.0.0: 0.0 -- agaıa 


85 printc4$"** 


298 printc4$"** 
“295 printe4g "rer 


SSEHHECHEHTECHERAEN" 
388 x=3451:pokex,38:pokex-19824,1:za 


318 ifa=1then348 

328 geta$:ifa$="*"then548 

338 gosub418:g0t0o328 

348 readx$:i=1 

358 w=val(lmid$(x$,i,1)) :a$=mid$( sc$ 
‚w,1) :ifa$=k1$then54B 


368 fort=1to B8:next 

378 gosub418:i=i+1:ifi<=len(x$)then 
358 

388 goto348 Re 

418 ifa$<>" "then488 

428 ify<>8then458 

438 ifpeek( x-48) <>Bithenreturn 

448 y=x-4AB:pokey,42:return 

458 ifpeek( x-48) <>B7or( abs( y-x+48) < 
>4andabs( y-x+4B) <>168)thenpokey,B1: 
y-dÖ:return : 

468 ifpeekl ( y-x+48) /2+x-48)<>Bithen 
pokey,81:y=®:return 

478 pokex-48,81:poke( y-x+48) /2+x-4B 
‚87:pokey,87:y=®:z=z+i:return 

ABB ifa$=c3$andpeek( x-88) =32thenpok 
ex,32:x=x-B8 

499 ifa$=ci1$andpeek( x+88) =32thenpok 
ex,32:x=x+B8 ; 

588 ifa$=cA$andpeek( x-2) =32thenpoke 
x,3221x=x-2 

518 ifa$=c2$andpeek( x+2) =32thenpoke 
x,32:x=x+2 

528 pokex,38:pokex-1824,1 

538 return 

548 ifa=ithenchar,1,23,"der compute 
r hat dir jetzt die loesung"”:print 
558 ifa=ithenprint"” gezeigt. nun bi 
st du an der reihe.":goto598 

568 char,7?,23,"du hast":printz"stei 
ne geschlagen.” 


578 ifza-z>ithenprint"..... es sind 
noch"za-z”steine uehrig.":goto59® 
580 'DIINE "een das ist optima 
ı. E12 ; 

598 geta$:ifa$=""thenS98 

688 run 


618 data"511534452254335 11533225445 
111533535 115254452111533"” 

628 data"53445225511534452255115344 
522533222544521153351122” 

638 data"54453345225254453511515335 
122544535 115452254 115335" 

648 data"25445544522115335351154153 
3545225153356" 

1888 c1$=chr$( 817) :c2$=chr$( 829) 
1818 c3$=chr$( 145) :c4$=chr$( 157) 
1828 k1$=chr$( 864) :c1$=chr$( 147) 
1838 sc$=c1$+c2$+c3$+c4$+" "+Kk1$ 
18498 r1$=-c4$+"*#"+c1$+rc4$+rc4$+"*#" 
2888 return 

3388 rem einsiedlerspiel========64 
3318 rem 88888 bytes speicher == 
3328 rem 88888 bytes programm == 
3338 rem 88888 bytes variables == 
3348 rem BB888 bytes strings m. 
33580 rem 89888 bytes fre = 


3368 rem ========--=22==--2=-------- 3) 
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Netzteil 


{ 
18 rem netzteilberechnung=======c16 
28 rem (p) 18/86 commodore welt == 


48 rem (c) 89/86 friedrich lampe == 


68 rem p4/c16/c116 + 1531/1541 == 


98 restore:clr 

188 c1$=chr${ 147) :sp$=chr$( 32) 
rn$=chr$( 18) :rf$=chr$( 146) 
128 bi$=chr$( 167) :b2$=chr$( 189) 
138 b3$=chr${( 112) :b4$=chr$( 118) 
148 b5$=chr$( 111) :b6$=chr$( 186) 
158 b7$=chr$( 178) :b8$=chr$( 162) 
c1$=chr$({ 117) :c2$=chr${ 185) 
178 c3$=chr$( 29) :c4$=chr$t{ 17) 

188 c5$=chr$( 125) :c6$=chr$( 183) 
198 c?$=chr$( 175) :co$=chr${ 145) 
288 c8$=chr$( 96) :c9$=chr$( 165) 
218 ai$=chr$( 1986) :32$=chr${ 187) 
228 a3$=chr$( 188) :ho$=chr$( 19) 

238 cr$=c4$+c4$+c4$+c4$ 

248 printc1$:printc4$c4$c4$ 

258 printtab(5)c1$; 

268 for i=8 to 27:printc8$; :next i 
298 printc2$ 

288 for i=8d to 8 

298 printtab(5)c5$; :printtab( 34) c5$ 
3886 nexti : 

318 printtab(5)al$; 

328 for i=8 to 29:printc8$; :next i 
338 printa2$ho$cr$c4$c4$ 

348 printtab( 15) "netzteil-":print 
358 printtab( 15) "berechnung":print 
printtab( 18)c1$c8$c2$ 
printtab( 18)c5$;"c";c5$; 

388 printtab( 15)"f. lampe 1986" 
398 printtab( 18)31$c8$32$ 
printc4$c4$ 

418 printtab( 7?) "druecke space" 

428 get y$:if y$=""then 428 

438 printco$tab(?)"trafo berechnung 


448 printtab( 7?) "einweggleichrichtun 
g...(2)" 

458 printtab( ?) "zweiweggleichrichtu 
ne... 3)” 

printtab( 7)"brueckengleichricht 
ung.(4)":print 

498: printtab[ 7) "ende. -- ss. =, .=0r 
Be en 

print 

498 get y$:y=val(y$) 

588 on y+1 goto 498,518, 1328, 1578, 1 
870,2258 

518 printel$cer$er$ 


528 printtab(5)c1$; 

538 for i=® to 27:printcB$; :next i 
548 printc2$ 

S58 for i=@ to 5 

568 printtab(5)c5$; :printtab( 34) c5$ 
578 next i j 

588 printtab(5)a1$; 

598 for i=8 to 27:printc8$; :next i 
688 printa2$ 

618 printho$:fori=1t0o12:printc4$;:n 
ext 

628 printtab( 11)"trafo - berechnung 


638 printcr$ 

648 printtab(6) "druecke space" 

658 get y$:if y$="" then 658 

668 printc1$cA$cA$ 

678 printtab(12)"e ing ab e";c4$ 
c4$ 

688 input"primaerspannung in volt.. 
SÜD 

698 print : 

788 input"wieviel sekundaerspannung 
en ";z 

718 for x=1 to z 

728 print - 

738 print"sekundaerspannung in volt 
"x; 

748 input u(x) 

758 print 

768 print"sekundaerstrom in ampere 

"x; 

778 input i(x) 

788 p=p+tu(x)*i(x) 

798 next x 

898 ip=(p/up)*1.15 

818 for t=i1 to 25 

828 read k$,pt,g 

838 if p<pt then goto 918 

848 next t 

858 printc4$c4$ 

868 printtab( 11)"fuer diese leistun 
g” 

878 printc4$c4$ 

888 printtab(8)"ist kein kern gespe 
ichert"” 

898 get y$:if y$="" then 898 

988 goto 188 


918 np=up*.95*37.5/q 


928 dp=.7*sgr(ip) 

938 for x=1 to z 

948 n[x)=int( 37.5/q*u(x)) 

958 d(x)=-.7*sqr(ilx)) 

968 next x 

978 printc1$c4$c4$ 

988 printtab(9)"a us g ab e" 

998 printc4$c4$;"der kern ";k$;" wi 
rd verwendet” 
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Netzteil 


1888 printc4$; "primaerwicklung";int 
(np) ;"wdg";int( 188*dp) /188;"cul"” 
iBi@ for x=1 to z 

1828 printc4$;"sekundaerwicklung";x 
sntx); "wdg"”;int( 189*#dlx)) /10B;"cul" 
1838 next x 

1848 printc4$;"druecke space" 

1858 get y$:if y$="" then 1858 

1868 goto 188 

1878 data ei 42,3.7,1.75 

1888 data m 42,5,1.62 

1898 data ei 48,6.5,2.3 

1188 data ei 54,9.8,2.95 

1118 data m 55,14,3.1 

1128 data ei 68,21.5,4.4 

113@ data m 65, 30, 5 

1148 data ei 78, 36, 6,1; 

1158 data m 74, sa, 6. 6 

1168 data ei '924,55,4.8 

1178 data ei 92b,75,6.7 

1188 data m 853,88,9.15 

1198 data m 85b,98, 13.1 

1288 data ei 186a,185,7.9 

1218 data m 1823,128,18.7 

1228 data ei 186b, 158,11.8 

1238 data m 182b, 188, 15.9 

1248 data ei 1398a4,218, 11.1 

1258 data ei 138b,273,14.2 

1268 data ei 158a,345, 14.4 

1278 data ei 158b,425,18 

1288 data ei 158c,588,21.6 

1298 data ei 1794,628,22.3 

1388 data ei 178b,698,26.3 

1318 data ei 178c,810,390.4 

1328 printc1$c4$ 

1338 printtab(8) "einweggleichrichtu 
ng” 

1348 printtab( 16)b1$b2$c9$ 

1358 printtab( 6) c6$c6$c6$c6$rn$sp$c 
S$sp$rf$c6$c6$c6$b3$bA$b5$c6$63$c6$ 
c6$c6$c6$; 

1368 printtab( 26) "+" 

1378 printtab( 18) rn$sp$c5$sp$rf$; 
1388 printtab{ 28) b6$c7$ 

1398 printtabl 16) rn$sp$oS$ap$rf$; 
1488 printtab( 268) b8$b8$ 

1418 printtab( 18) rn$sp$c5$sp$rf$; 
1428 printtab( 28)b7$ 

1438 printtab( 6) c7$c9$c7$c7$rn$sp$c 
S$sp$rf$c7$c7$c7$c7$c7$c7$c7$b6$c7$ 
c7$c7$c7$; 

1448 printtab( 26) "—-" 

1458 gosub 2138 

1468 p=-i*( ua+.6) 

1478 uk=ua*1.5 

1488 uve=int((ua+.6+b) /sqr( 2) #188+.5 
)/188 

1498 id=i*1.5 


1588 ud=int((2*ue*sqr(2)*1.5) #190+. 
5) /188 

1518 pd=.7*i*1.5 

1528 c=4988*i/b 

1538 gosub 2218 

1548 printc4$;"brummfrequenz = 58 h 
zZ" 
1558 
1568 
1578 
1588 
ung" 
1598 -printtabl 16) b1$b2$c0g 

1688 printtab( 6) c6$c6$c6$c6$rn$sp$c 
5S$sp$rf$c6$c6$c6$b3$bA$H5$c6$b35c6$ 
c6$c6$c6$; 

1618 printb3$c6$c6$c6$; 

1628 printtab( 38) "+" 

1638 printtab( 18) rn$sp$cS$sp$rf$c7$ 


get y$:if y$="" then 1550 

goto 188 

printc1$ 

BRENREREN BI” ee re 


’ 
1648 
1658 


printtab( 28) b7$c3$c3$c3$c3$b7$ 
printtab( 18) rn$sp$rf$c9$c3$b1$ 
1668 
c78 
1678 printtab( 18) rn$sp$rf$c9$c3$b1$ 
c6$c6$c6$c6$c6$c6$b3$63$; 

1688 printtab( 25) b8$b8$ 

1698 printtab( 18) rn$sp$c5$sp$rf$c6$ 


printtab( 28)b7$c3$c3$c3$c3$b6$ 


’ 

1788 printtab( 28)b7$b7$c.3$c3$c3$b7$ 
1718 printtab( 6) c?7$c7$c7$c7$rn$sp$c 
S$sp$rf$c7$c7$c7$b6$b2$33$c7$bE$h7F 
c7$c7$c7$; 

1728 printb6$c7$c7$c7$; 

1738 printtab( 38) "-"” 

1748 printtab( 16)b1$b4$c9$ 

1758 gosub 2138 

1768 p=[(ua+.6)*i 

1778 uk=ua#1.5 

1788 uve=int( (ua+.6+b) /sqr( 2) #188+.5 
I/ı98 

1798 id=.5#i1*1.5 

1888 ud=int( (2*ue*sgqr( 2)*1.5)*188+. 
5) /188 

1818 pd=id*.7 

1828 c=1858*i/b 

1838 gosub 2218 

1848 printc4$;"brummfrequenz = 
a" 
1858 
1868 
1878 
1888 
tung” 
1898 printtab( 6) c6$c6$c6$c6$rn$sp$c 
S$sp$rf$c6$c6$c6$c6$c6$c5$bA$b2$ 
1988 printtab( 18) rn$sp$c5$sp$rf$c3$ 


188h 
get y$:if y$="" then 1858 

goto 188 

printc1$ 
printtab( 9) "brueckengleichrich 
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Netzteil re 2 Ye 


c3$c3$c3$c3$b4$c3$c3$b2$ 
1918 printtabf( 18) rn$sp$cS$sp$rf$c3$ 
e38E35n3$hA$h1$b250e9FeF5b2F mmadore- Magazı SE ee 
1928 printtab( 18) rn$sp$cS5$sp$rf$c3$ : 1: 
c3$c3$b 1$b2$b3$bA$b5$c3Fb4$; = co 
1938 printc6$c6$c6$b3$c6$c6$c6$c3$; 
„." h 
1948 printtab( 18) rn$sp$c5$sp$rf$c3$ 
c3$c3$b 1$c3$b2$c3$c3$bA$; 
1958 printtab( 26)b6$c7$ 
1968 printtab{ 6) c7$c7$c7$c7$rn$sp$c 
5$sp$rf$c7$c7$c7$b6$c7$c7$b2$b4$; 
1978 printtab( 26) b8$b8$ 
1988 printtab( 16)b1$; :printtab( 26) b 
1$; :printtab( 31)" -"” 
1998 printtab( 17) c6$c6$c6$c6$c6$c6$ 
c6$c6$c6$c6$c6$c6$c6$ 
2888 gosub 2138 
2818 p=(ua+1.2)*i 
2828 uk=ua*1.5 
2838 ue=int( (ua+1.2+b) /sqr(2)*180+. 
5) /188 

. 2848 id=-i*1.5 
2858 ud=int( (ue*sgqr{( 2)*1.5)*188+.5) 
/188 
2868 pd=-id*.7? 
2878 c=1858*i/b 
2088 gosub 2218 
2898 printc4$;"brummfrquenz = 188hz 
21808 get y$:if y$="" then 2188 
2118 goto 188 
2128 : 
2138 print 
21448 input"gleichspannung in volt. 
„sus 
2158 print 
2168 input"gleichstrom in ampere.. 
ag! 
2178 print 
2488 input"max. brummspannung in vo 
1t";b 
2198 return 
2208 : 
2218 printc4$;"trafo :";p;"w/";ue;" 
veff."” i 
2228 printc4$;"dioden:";ud;"v/";pd; 
"u/tsid, ta” 
2238 printc4$;"kond. :";uk;"v/";c;" 
uf" 
2248 return 


Das große Weihmachtsamgebot_ von 


HeGea _ 5o FE 
Postfach 90 04 48, D-88000 München 90 


Telex: (051) 933524 geonet 9 _ box:ifx1:hegasoft _ *** BTX: *2150785# INFEX1 


PC - Komplettamgebote : 
Paket 1: 


XT-Kompatibler Rechner mit 640 K RAM on'board, aufrüstbar on board bis 1 MByte, 
Taktfrequenz 4,77 MHz und 8 MHz, Prozessor 8088, 2 Laufwerke je 360 KB, Drucker- 
schnittstelle Centronics parallel, Herkules Grafikkarte, TTL-Monitor, wahlweise 
s/w, grün oder bernstein. Dazu 80 Zeichen Matrixdrucker oder wahlweise Typenrad- 
drucker, bidirektionaler Druck mit 14 Zeichen/Sekunde, je nach Typenrad 101 - 
151 Zeichen je Zeile. 1 Original und 3 Kopien sind in einem Arbeitsgang möglich. 
Farbband: Multistrike. Wahlweise können Sie auch Carbon-Film verwenden. Größe 
und Gewicht des Typenraddruckers ähnlich dem Matrixdrucker. Desweiteren im 
Paket: 1 x RS 232. Schnittstelle, Game-Port und Hardwareclock. Im Lieferumfang 
ist folgende Software enthalten: MS-DOS 3.2 + GW-Basic. Platz findet Ihr komplettes 
System m Termimaltisch, der zum Lieferumfang gehört !! 


Komplett, im Inland inclusive Versandkosten: 
DM 4 P ID Br 


Paket 2: 


Wie Paket 1, jedoch an Stelle des 2. Diskettenlaufwerkes ist eine 
20 Megabvyte Festplatte installiert. 


Komplett, im Inland inclusive Versandkosten: 
DM 6.595,-- 


Paket 3: 


Einsteigerangebot: Rechner, Monitor und Software aus Paket 1, jedoch kein weiteres 
Zubehör, d.H. ohne Drucker und ohne Terminaltisch. 


Komplett, im Inland inclusive Versandkosten: 
DM 3.345,-- 


Multiuseranlagen schon ab DM 354.000,--— 
lieferbar. Nennen Sie uns Ihre Problemstellung _! Sie_erhalten unser Angebot. 


Sehr viele PC-Erweiterungskarten und sonstiges Zubehör lieferbar. Desweiteren 
Computer-, Drucker- und Terminaltische, Druckerständer, Diskettenkästen und 
Büromöbel im Programm. Umfangreiche Branchensoftware kann auf Wunsch beschafft 
werden. Nennen Sie auch hier Ihre Wünsche ! 


Achtung ! TI - User !! 
Für Sie nur noch geringe Lagerbestände verfügbar. Ergänzen Sie Ihre Software- 
Sammlung daher bald, bevor alles. vergriffen ist. 


Disketten d 

z.B. 5 1/4 Zoll HIGH Density (AT-Qualität) 10 Stück Packung DM 98,-- 
z.B. 3,5 Zoll SS/DD 10 Stück Packung DM 56,-- 
z.B. 35 Zoll DS/DD 10 Stück Packung DM 85,- 


Obige Preise enthalten, trotz der teilweise hohen Versandgewichte, grundsätzlich 
bereits die Versandkosten. Ausnahme: Kleinaufträge unter DM 100,-- bedingen 
einen Versandkostenanteil von DM 5,--. Auslandsversand und besondere Versand- 
formen auf Kundenwunsch werden entsprechend dem tatsächlichen Kostenaufwand 
weiterberechnet. Versandart Nachnahme mit Bundespost bzw. Spedition. 


Dieses Angebot ist freibleibend. Irrtum und Druckfehlerberichtigung vorbehalten 
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Hierbei handelt es sich um ein Hilfsprogramm zum 
Erwerb eines Führerscheins. In diesem Falle wurde 
das Programm speziell auf den Mofa-Führerschein aus- 
gelegt. Natürlich kann das Programm auch mit ande- 
ren Fragen bestückt, ergänzt oder erweitert werden, 
so daß auch für den Erwerb anderer Führerscheine 
eine hervorragende Hilfe vorhanden ist. 

Die Bedienung des Programmes ist denkbar einfach: 
Der Computer stellt nach dem Zufallsprinzip Fra- 
gen. Diese erscheinen in reverser Darstellung. Nun 
muß die richtige Antwort gefunden werden, indem 
die dazugehörige Ziffer eingegeben wird. Ist zum 
Beispiel Antwort eins richtig, muß auch die Ziffer 1 


9 | 3 


In weicher Reihenfolge dar! gefahren werden? 


+ 0-00 


10 Wie hat sigh der Führer von Fahrzeug 2 zu verhalten? 
4 


Er muß an der Haitlinie zunächst anhalten 
Er muß vor Fahrzeug 1 links abbiegen 


=] Er muß als Linksabbieger Fahrzeug 1 durchfahren lassen 


13 __Dartder Führer eines Mofas diese Straße benutzen? 
3 
El Er darf die Straße benutzen, wenn er das Mofa schiebt 


BE] Er darf sie nicht benutzen 


eingegeben werden. Da natürlich auch mehrere Ant- 
worten richtig sein können, müssen in solch einem 
Fall auch mehrere Ziffern eingegeben werden. 
Dabei ist zu beachten, daß mit der niedrigsten Zif- 
fer begonnen wird, Sind zum Beispiel die Antwor- 
ten eins, zwei und drei richtig, lautet die korrekte 
Eingabe >123<.. Wird in einer Frage nach einer 
Ziffer gefragt (Beispiel: Wie schnell darf ein Mofa 
fahren?), so müssen Sie diese Zahl eingeben. 
Nach jeder Frage können Sie entscheiden, ob weiter 
gefragt werden soll oder nicht. Wird das Programm 
beendet, erfolgt noch die Ausgabe der gesamten 
Fehler und der richtigen Antworten, so daß man den 
ne bei den Übungen sehr gut beobachten 
ann. 
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'®2 rem mofa 1========-=======416 
22 rem (p) 
3® rem =========-=====22 2022200 
22 rem (c) by == 
5S® rem leonel lourenco == 
58 rem == 
72 rem version 3.5 == 
58 rem c16/c116/p4 + 1531 == 
928 rem ==========2==2=22===02 202000 


91 rem (diese Zeilen nicht eingeben 


32 rem Das Programm eignet sich auc 
h hervorragend als Geruest 

933 rem fuer andere Fuehrerscheinpru 
efungen. , 

94 rem Es muessen nur die Fragen & 
Antworten angepasst werden! 

188 c7$=chr${ 17) +chr$( 29) +chr$( 18) 
118 c4$=chr$( 18) :c5$=chr$( 146) :c6$= 
cehr$( 17) +chr$( 29) 

128 c1$=chr$( 42) :c2$=chr$( 32) :c3$=c 
1$+c1$ 

138 color®,13,4:color4,13,3:vol8 
148 scnclr:printchr$( 158) 

158 fora=1t048:printc1$;:next:fora= 
1t048:printci$; :next 

168 printc3$; :fori=1t036:printc2$;: 
next:printc3$ 

1798 printc3$;" pruefungsfragen zur 
vorbereitung ";c3$ 

188 printc3$; :fori=1t036:printc2$;: 
next:printc3$ 

190; Brinte3$:".. - - ze. auf den erwe 
eb der... 0.000 2038 

288 printc3$; :fori=1t036:printc2$;: 
next:printc3$ 

230, BIINTEISS; "ra. ee pruefbeschei 

DIEOUNg ar are "038 

228 printc3$; :fori=1t036:printc2$;: 
next:printc3$ 

230 PrINEGSS$; ": au 05 wars mofa 2 

EEE EEE "38 

248 printc3$; :fori=1t036:printc2$;: 
next:printc3$ 

2850. printes3ßr "Ss. Henn: by leonel lou 
DENCOs» ae as ae 038 

268 printc3$; :fori=1t036:printc2$;: 
next:printc3$ a 

270..DPINECIRH "0 aetidern (c) 
anereb len Ya Tata ler Tat) ee 235 

288 printc3$; :fori=1t036:printc2$;: 
next:printc3$ 

290: printe3$:” .... 4.2. by ";c4$;"1 
eö-software"3c5$:"”..:2....u.- "E38 
388 printc3$; :fori=1t036:printc2$;: 
next:printc3$ 

310 BFINECISE "HH a u aan ah E; 


1986. 


Urunar ee tens ande ten Erbe je 3 

328 printc3$; :fori=1t036:printc2$;: 

next:printc3$ 

338 fora=1t048:printc',$; :next 

348 fora=1t048:printc1$; :next 

358 printspc( 15) ;c6$;c4$; "taste";c5 

$ 

368 geta$:ifa$ß=""then368 

378 sound1,988,5 

388 scnclr 

398 printc6$; "hallo !!!":printc6$;" 

man hat mich beauftragt, mit dir ei 

n" 

488 printc6$;"bischen fuer die mofa 
-pruefung zu” 

418 printc6$;"ueben. nun noch die r 

egeln, die du ";chr$( 17);" beachte 

n musst !!!1"” 

428 printc6$;"druecke eine taste" 

438 geta$:ifa$=""then43d 

448 sound1,988,5 

458 scncelr i 

468 printc6$;"die fragen, die du be 

antworten musst," 

478 printc6$; "erscheinen revers."” 

488 printc6$;"die antworten sind nu 

meriert."” 

498 printc6$;"du musst die richtige 

n zahlen, die vor" 

sa8 printc6$;"den antworten stehen, 
eintippen." 

518 printc6$;"wenn mehrere antworte 

n "” 

528 printc6$; "richtig sind, 
sst du die zahl," 

538 printc6$;"die am niedrigsten is 
t, zuerst eintippen" 

548 printc6$; "beispiel:antworten 1 
und 2 sind richtig" 

558 printc6$;"dann musst du 12 eint 
ippen !"” 

568 printc6$;"nun druecke eine tast 
e zum beginnen !" 

578 geta$:ifa$=""then57® 

588 sound1,988,5 

598 senclr:x=int(rnd( 1) #2) +1 

688 ifx=1thengoto628 

618 ifx=2thengosub1728 _ 

628 scnclr:a=int(rnd( 1) #18) +1 

638 ifa=ithenprintc?7$; "welches sind 
die hauptursachen von..... = 

648 ifa=ithenprintc?7$; "auffahrunfae 
llen innerhalb gesch -..... ” 

658 ifa=ithenprintc?$;"lossener ort 
schaften ?" 

668 ifa=1thenprintc6$;"1) zu gering 
er abstand zum voraus-......... fahr 
enden" 


dann mu 
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678 ifa=ithenprintc6$;"”2) der farze 
ugfuehrer ist abgelenkt" 

688 ifa=ithenprintc6$ 
tes starkes bremsen des.......- vora 
usfahrenden" 

698 ifa=itheninputx% 

788 ifa=1thenifx%=123thengoto2638 
718 ifa=2thenprintc?7$;"sie wollen e 
ine kreuzung ueberqueren..."” 

728 ifa=2thenprintc?$;"in welchen f 
aellen duerfen sie nicht” 

738 ifa=2thenprintc?7$;"in die kreuz 
ung einfahren, obwohl” 

748 ifa=2thenprintc?$;"die ampel ’g 
ruen’ zeigt ?" 

758 ifa=2thenprintc6$”i) wenn das s 
top-zeichen ’halt!vorfahrt” 

768 ifa=2thenprint"..... er 
aufgestellt ist" 

778 ifa=2thenprintc6$"”2) wenn ein p 
olizeibeamter ’halt’.........-. gebie 
tet” 

788 ifa=2thenprintc6$"3) wenn sie a 
uf der kreuzung warten " 


.798 ifa=2thenprint"..... muessten, w 
eil der verkehr stockt "” 

888 ifa=2theninputx% 

818 ifa=2thenifx%=23thengoto2638 
828 ifa=3thenprintc?7$;"was bedeutet 


die verpflichtung zu...... ai 
838 ifa=3thenprintc?7$;"staendiger v 
orsicht und gegenseitger 

848 ifa=3thenprinte7$;"ruecksicht f 
ver den verkehrsteilnehmer?" 

858 ifa=3thenprintc6$"1) mit dem fe 
hlverhalten anderer rechnen" 

868 ifa=3thenprintc6$"2) es ist vor 
ausschauend zu fahren” 

878 ifa=3thenprintc6$"”3) die sicher 
heit auf der strasse geht” 

888 ifa=3thenprint"persoenlichen in 
teressen vor" 

898 ifa=3theninputx% 

988 ifa=3thenifx%=123thengoto2638 
918 ifa=4thenprintc?$; "welche folge 
n ergeben sich, wenn sie..." 

928 ifa=4thenprintc?$;"mit einem mo 
fa fahren, das durch....... = 

938 ifa=4thenprintc?$; "technische v 
eraenderungen (frisieren).."” 

948 ifa=4thenprintc?7$; "schneller al 
s 25 km/h laeuft ?..... ee 

958 ifa=4thenprintc6$"i1) sie koenne 
n sich strafbar machen, 

968 ifa=4Athenprint”..... wenn sie ni 
cht die erforderliche 
978 ifa=4Athenprint"” 
is besitzen" 


fahrerlaubn 


;"3) unerwarte - 


988 ifa=4thenprintc6$"”2) die mofa-p 


ruefbescheinigung reicht...... nicht 
aus" 

998 ifa=4thenprintc6$"3) sie fahren 
mit einem fahrzeug ohne...... betri 

ebserlaubnis" 

1888 ifa=4theninputx% 


1818 
1828 


ifa=4thenifx%=123thengoto2638 

ifa=Sthenprintc?$; "welche gefa 
hren ergeben sich beim...... z R 

1838 ifa=5thenprintc?7$;”fahren mit 

einem mofa bei dunkelheit..."” 

1848 ifa=Sthenprintc6$"1) fFussgaeng 
er in dunkler kleidung "” 

1858 ifa=5thenprint"”:.... sind oft s 
chlecht zu erkennen" 

1868 ifa=Sthenprintc6$"2) mofas wer 
den bei dunkelheit"” 


1878 ifa=Sthenprint"”..... leichter u 
ebersehen als grosse.......... fahrz 
euge, 

1882 ifa=Sthenprint"..... auch wenn 


sie mit licht fahren" . 

1898 ifa=5thenprintc6$"3) hindernis 
se koennen trotz ein-"” 

1188 ifa=Sthenprint"..... geschaltet 
er beleuchtung zu spaet....... erkan 
nt werden" 

1118 ifa=5theninputx% 

1128 ifa=5thenifx%=123thengot 02638 
1138 ifa=6thenprintc?$;"was kann di 
e ursache fuer das......... ” 

1148 ifa=6thenprintc?$;"wegrutschen 
eines mofas in der kurve.."” 

1158 ifa=6thenprintc?$;"sein ?" 
1168 ifa=6thenprintc6$"”1) starkes b 
remsen" 

1178 ifa=6thenprintc6$"”2) nasse ode 
r vereiste fahrbahn" 

1188 ifa=6thenprintc6$"3) sand oder 
rollsplitt" 

1198 ifa=6theninputx% 

1288 ifa=6thenifx%=123thengoto2638 
1218 ifa=?thenprintc?$;"wie verhalt 
en sie sich als mofa-fahrer" 

1228 ifa=?thenprintc?7$;"gegenueber 
dem nachfolgenden verkehr, 

1238 ifa=?thenprintc?7$;"wenn sie na 

ch links abbiegen wollen ?" 

1248 ifa=7thenprintc6$"1) durch kop 

fdrehung rechts-links "” 


1258 ifa=7thenprint"”..... den nachfo 
lgenden verkehr.........-...... beoba 
chten"” 


1268 ifa=7thenprintc6$"2) durch han 
d-oder blinkzeichen die" 

1278 ifa=?thenprint" fahrtrichtung 
saenderung anzeigen" 
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1288 ifa=?thenprintc6$"”3) bei nachf 
olgendem verkehr duerfen" 

1298 ifa=7thenprint" mofafahrer nur 
rechts abbiegen, 


1388 ifa=7thenprint"”..... und muesse 
n einen umweg in kauf......... nehme 
Aa 


1318 ifa=7theninputx% 

1328 ifa=7thenifx%=12thengoto2638 

1338 ifa=8thenprintc?$;"wie alt mus 

s man mindestens sein,...... = 

1348 ifa=8thenprintc?$;"um ein mofa 
fahren zu duerfen ?........ = 

1358 ifa=8thenprintc?7$;"er muss *## 

Johre.alt. sein... „+. 2er = 

1368 ifa=8theninputx% 

1378 ifa=8thenifx%=15thengoto2638 
1388 ifa=9thenprintc?7$;"warum sollt 

e auch der mofafaährer....... S 

1398 ifas=9thenprintc?$;"zusaetzlich 
zu einem helm schutz-...... = 

1488 ifa=9thenprintc?$; a, tr 

DRENV. "Die au 2 ua a ea 

1418 ifa=9thenprintc6$"1) die schut 
Zzkleidung Mildert .x.2 2.2. 20cm unfa 

11lfolgen" 

1428 ifa=9thenprintc6$"2) die schut 

zkleidung verhindert, dass" 

1438 ifa=9thenprint"”....haende und 

fuesse durch kaelte.......... steif 

werden" 

1448 ifa=9thenprintc6$"3) die schut 
zkleidung beugt gesundheit-" 

1458 ifa=9thenprint"..... lichen sch 

aeden vor" 

1468 ifa=9theninputx% 

1478 ifa=9thenifx%=123thengoto2634 
1488 ifa=18thenprintc7$;"was haben 

fahrzeugfuehrer zu beachten, 

1498 ifa=18thenprintc?7$;"wenn sie r 
adfahrer oder fussgaenger " 

1588 ifa=18thenprintc?7$;"auf der fa 
hrbahn ueberholen wollen ?" 

1518 ifa=1ßdthenprintc6$"1) fahrzeug 
fuehrer duerfen damit "” 

1528 ifa=18thenprint"” 
ihnen fussgaenger 
1538 ifa=1ßthenprint" bei zu gering 
en sicherheitsabstand...... ausweich 
en" 

1548 ifa=1ß8thenprintc6$"2) fahrzeug 
fuehrer haben " 

1558 ifa=1@thenprint" grundsaetzlic 
h warnzeichen zu geben" 
1568. ifa=18thenprintc6$"3) 
r oder fussgaenger sollen” 
1578 ifa=1ßthenprint"” nur 
ichendem sicherheits-" 


rechnen, dass 


radfahre 


in ausre 


1588 ifa=1@thenprint"” 
moeglichst 1,5 m " 

1598 ifa=18thenprint" 
rden, damit eine gefalhlir"” 
16088 ifa= 18thenprint” 
ssen ist" 

1618 ifa=18theninputx% 


abstand von 
uvueberholt we 


ausgeschlo 


1628 ifa=18thenifx%=3thengoto2638 
1638 printc6$;c6$"leider falsch !" 
1648 sound1., 988,5 

1658 f=f+1 

1668 print"willst. du noch weitermac 
hen ?"” 

1678 print"druecke ’j’ oder ’n’ " 


1688 getkeygqg$ 

1698 sound1,908,5 

17808 ifq$="j"then598 

1718 ifg$="n"then2718 

1728 x=int(rnd( 1)*11) +1 

1738 ifx=1ithenprintc?7$; "wo muessen 
sie ausserhalb = 

1748 ifx=1thenprintc?7$; "geschlossen 
er örtschaften '’In.r „Ki... = 

1758 STAR IEbAnprInteTN, Kerhnehtem m 
asse mit vereisung der...... 

1768 ifx= ER ER "tahrbahk re 
chneni Zeiss a er ee 

1778 ifx=1thenprintc6$"1) an brueck 
en" 

1788 ifx=1ithenprintc6$"2) auf strec 
ken,die durch wald fuehren"” 

1798 ifx=ithenprintc6$"3) auf dem r 
echten fahrstreifen..."” 

1888 ifx=1theninputx% 

1818 ifx=1thenifx%=12thengot 02638 
1828 ifx=2thenprintc?7$;"sie verursa 
chten einen verkehrsunfall " 

1838 ATRTBEHENPEINESIE TWelshe scha 
eden sind durch ihre........ 

1848 ifx=2thenprintc?7$; "haftpflicht 
versicherung gedeckt ?...... 

1858 ifx=2thenprintc6$"1) sachschae 
den am fremden fahrzeug" 

1868 ifx=2thenprintc6$"2) sachschae 
den am eigenen fahrzeug" 

1878 ifx=2thenprintc6$"3) personens 
chaeden von insassen des....... frem 
den fahrzeugs"” 

1888 ifx= »StheninputeX 

1898 ifx=2thenifx%=13thengot 02630 
1988 ifx=3thenprintc?$;"fuer mofafa 
hrer ist defensives fahren " 

1918 ifx=3thenprintc?$; "besonders w 
ichtig. was versteht man...." 

1928 ifx=3thenprintc?$;"hierunter" 
1938 ifx=3thenprintc6$"1) damit rec 
hnen, das ändere fehler...:....mach 
en" 
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1948 ifx=3thenprintc6$”2) kein risi 

ko eingehen" 

1958 ifx=3thenprintc6$"3) nicht auf 
sein recht bestehen" 


1968 ifx=3theninputx% 

1978 ifx=3thenifx%=123thengoto2638 
1988 ifx=4thenprintc?$;"wie alt mue 
ssen sie sein, wenn sie..... = 

1998 ifx=4thenprintc?$;"ein kind un 
ter ? jahren mitnehmen...... = 


2888 ifx=4thenprintc?7$; "wollen ?" 
2818 ifx=4thenprintc6$"”man muss min 
destens ** jahre alt sein, 

2828 ifx=4thenprintc6$"um ein kind 
unter 7 jahren mitzunehmen” 

2838 ifx=4theninputx% 

2848 ifx=4thenifx%=16thengoto2638 
2858 ifx=Sthenprintc?$; "was hat der 
fuehrer eines mofas bei...."” 

2868 ifx=5thenprintc?7$;"regen beson 
ders zu beachten ?.......... = 

2878 ifx=S5Sthenprintc6$"”i1) die sicht 
wird durch das helmvisiery....erhe 
blich schlechter” 

2888 ifx=S5thenprintc6$"”2) bei regen 
nasser fahrbahn sind " 


2898 ifx=5thenprint"....strassensch 
aeden schlechter.......-.-.--- erkenn 
bar" 


2188 ifx=5thenprintc6$”3) durch spr 
itzwasser wird die sicht " 

2118 ifx=Sthenprint"....zusaetzlich 
beeintraechtigt" 

2128 ifx=5theninputx% 

2138 ifx=5thenifx%=123thengoto2638 

2148 ifx=6thenprintc?$; "welche vers 
icherung muss fuer ihr mofa " 

2158 ifx=6thenprintc?7$;"unbedigt ab 

geschlossen werden ?" 

2168 ifx=6thenprintc6$"1) diebstahl 
versicherung" 

2178 ifx=6thenprintc6$"2) kraftfahr 
zeug-haftpflichtversicherung” 

2188 ifx=6thenprintc6$"3) teilkasko 
versicherung" 

2198 ifx=6theninputx% 

2288 ifx=6thenifx%=2thengoto2638 

2218 ifx=7thenprintc?$; "unter welch 

en voraussetzungen.........-- 

2228 EERTIERRRPFEREEIF, Nerluungart 


2238 ifx= =7thenprintc6$"”1) bei nasse 
r oder glatter fahrbahn" 

2248 ifx=7thenprintc6$"2) beim fahr 
en im gefaelle" 

2258 ifx=?7thenprintc6$"3) beim mitf 
uehren eines anhaengers" 

2268 ifx=7theninputx% 


2278 ifx=7thenifx%=123thengot0o2638 
2288 ifx=8thenprintc?7$;"wann darf e 
in mofa nicht in betrieb...." 


2298 ifx=8thenprintc?7$;"genommen we 
rden ?"” 

2388 ifx=8thenprintc6$"1) wenn das 

mofa nicht verkehrssicher...... ist" 
2318 .ifx=8thenprintc6$"2) wenn kein 
e rechtsschutzversicherung..... best 
eht" 

2328 ifx=8thenprintc6$"”3) wenn kein 
e haftpflichtversicherung...... best 
eht" 

2338 ifx=8theninputx% 


2348 ifx=8thenifx%=13thengoto2638 
2358 ifx=9thenprintc?$;"wie hat sic 
h jeder verkehrsteilnehmer.."” 

2368 ifx=9thenprintc?$;"im strassen 


verkehr zu verhalten ?...... = 

2378 ifx=9thenprintc6$"”1) es darf k 
ein anderer gefaehrdet......... werd 
en" 

2388 ifx=9thenprintc6$"2) es darf k 
ein anderer geschaedigt........ werd 
en” 


2398 ifx=9thenprintc6$"3) es darf k 
ein anderer mehr, als nach" 

2488 ifx=9thenprint"”....den umstaen 
den unvermeidbar, 

2418 ifx=9thenprint"”..... behindert 

oder belaestigt werden" 

2428 ifx=9theninputx% 

2438 ifx=9thenifx%=123thengoto2638 

2448 ifx=18thenprintc?$; "wie verhae 
lt man sich beim anfahren...."” 

2458 ifx=18thenprintc?7$;"vom fahrba 
hnrand ?" 

2468 ifx=18thenprintc6$"1) rueckwae 
rtigen verkehr beobachten" 

24978 ifx=18thenprintc6$"2): ausreich 
ende luecke im fliessenden......ver 


kehr ausnutzen" 

2488 ifx=i18theninputx% 

2498 ifx=18thenifx%= 12thengoto2638 
2588 ifx=i1thenprintc?7$; "womit rech 
nen sie, wenn sie sich mit..." 

2518 ATRTTTERBApELDERTE, "Ihren fahr 
zeug kindern naehern ?....... 

2528 ifx=11thenprintc6$"1) mit eine 


E gut uveberlepten. ...-..--..@.0: han 
dlungsweise" 

2538 ifx=11thenprintc6$"2) mit 
lig unueberlegtem verhalten..... der 
kinder” 

2548 ifx=i1theninputx% 

2558 ifx=11thenifx%=2thengoto2638 
2568 printc6$;c6$; "leider falsch !"” 

2578 sound1,988,5 


76 


2 en en Se Zn 3 ri = nn Sau 


Mofa 


2588 f=f+1 

2598 print"willst du noch weitermac 
hen ?" 

2688 print"druecke ’j’ oder ’n’ " 
2618 getkeyq$ 

2628 ifg$="j"thengoto598 

2638 printc6$"”die antwort war richt 
” 

2648 sound1,988,5 

2658 r=r+1 

2668 printc6$; "willst du noch weite 
rmachen ?" 

2678 printc6$;"druecke ’j’ oder ’n’ 


2688 getkeyq$ 

2698 ifq$="j"thengoto598 

2788 ifq$="n"thengoto2718 _ 

2718 senclr:printchr$( 17) ;chr$( 17); 
chr$( 17) ;chr$( 28) 

2728 color®,2:color4,2 

2738 q=r+f 

2748 printchr$( 17) ;chr$( 17) ;chr$({ 38 
3:.chr$t.1B) 3". u 200.0..8% endergebnis 


2758 print:print:print 

2768 printspc(9) ;chr$( 31) ;"richtige 
antworten..... "rp 

2778 print 


2788 printspc( 9) ;chr$( 159) ;"falsche 


antworten...... SR 

2798 print 

2888 printspc(9) ;chr$( 144) ;"gesamte 
Fragen: sn: "g 

2818 end 


a, 


LISTING 


ALIEN 
ATTACK 


Nach all der Arbeit am C 16 nun ein kleines Spiel zur 
Entspannung: Alien Attack. Was Ihre Aufgabe ist, ha- 
ben Sie aufgrund des Namens wohl bereits erraten: 
Retten Sie die Erde vor den angreifenden Aliens. 
Hierfür steht Ihnen ein wunderschönes neues Raum- 
schiff zur Verfügung, welches dieser Aufgabe gewach- 
sen ist. Sind Sie es auch? 

Gefeuert wird mit dem Knopf >B<. Sie haben 2 Mi- 
nuten Zeit, um so viele Aliens wie möglich aus dem 
Raum zu fegen. Für jeden Treffer erhalten Sie zehn 
Punkte, doch schießen Sie daneben, gibt das fünf 
Punkte Abzug. 

Außerdem handelt es sich bei den Angreifern um äu- 
Berst fruchtbare Exemplare, denn für jeden abgeschos- 
senen Raumgleiter kommt ein neuer hinzu. 

Das Spiel arbeitet mit einem veränderten Zeichensatz 
und hervorragendem Begleitsound. 
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alien attack 
{p) 11/86 commodore welt == 


18 rem 

29 rem 

38 rem 

A8 rem 18/86 by e. schulz => 

58 rem schoenwalde 

68 rem zen 

78 rem basic v3.5 = 
88 rem c16/116 plus 4 == 
98 rem =-=>======= === === 
95 poke55,255:poke56,55:clr 

188 gosub 68088 

118 printcl1$"mO"left$(qd$,5) 

128 print”t daB8 d7ff 3800” 

138 printc4$"x" 

148 printc4$"goto188"” 

158 poke1319,19 

168 fora=1328t01323:pokea, 13:next 
178 poke239,5:end 

188 poke65298, 192:poke65299,56:poke 

740,56 

198 printcl$ye$:color®,1,8:color4,1 
8 

? 

288 foro=14848t014919:reada:pokeo,a 
next 

218 poke1339,int(rnd( 1) #15) +1 

245 rem !!! die punkte im text sind 

216 rem !!! platzhalter fuer spaces 


(c) 


228 trap6Q9:printc1$c4$cA$"........ 


‚alien..attack" 

PSANDTINE m a eneen "cA$”"H..eckhar 
d schulz 

248 poke1339,int( rnd( 1) #15) +1 


258 printc4$cA$"......---- benutze d 
en laser F"zv$"6G" 

268 printc4$cA$”.:....----.--- um die 

angreifer" 

278 poke1339,int(rnd( 1) #15) +1 

288: printcä$" . „une enee Bio. 
Dr. .E" 

298 printcA$"”.....-»-- innerhalb von 


2 minuten 
388 poke1339,int{rnd( 1) #15) +1 


330: printe4$”" .=.=-. 3:04,20 zu vernic 
hten 
328 printc4$c4$c4$F1$"..... ...* dr 


uecke eine taste #" 

338 getkeya$ 

348 printcl$ 

358 poke1339,int(rnd( 1) #15) +1 

368 printho$c4$c4$"du bekommst 18 p 

unkte fuer einen treffer 

378 printc4$"du verlierst 5 punkte 

pro fehlschuss 

388 printc4$c4$"” jeder angreifer der 
zerstoert wird, wird 

398 printc4$"”"durch einen neuen erse 
tzt.” 

488 printc4$c4$"” uebrigens der feue 


rknopf ist "rn$"”b"rf$ 

418 printc4$c4$cA$F1$"......--- * dr 
uecke eine taste *" 

428 getkeya$ 

438 data153,231, 165, 153, 153,98,24,2 
4 
448 
458 
89 
468 
478 
488 
498 
588 
518 
‚126 
528 gosub 1298 

538 trap6B89:gosub1138 

548 gosub1178 

55@® printcl$ 

568 printho$ye$"”..... "F1$"bitte noc 
h einen moment geduld" 

5782 gosub1B48 

588 fork=1t018:forp=953t0854step-k* 
18:sound2,p,3 

598 next:next 

688 ti$=-"BRnHan" 

618 pokeq,64:pokeq-1824,1 

628 pokeg+1,71:pokeq+1-1824,1 

638 pokeq-1,78:pokeq-1-1824,1 

648 sys8B32 

658 sound1,818,5:sound2,778,5:sound 
3,596,5 

668 printho$"sc:"sc 

678 printho$left$(qr$,28)"zeit:"rig 
ht$[ti$,3) 

688 ifsc>2@8thena=25 

698 ifsc>3@8®8thena=18 

788 ifsc>48@thena=!1 

718 fork=®toa:next 

728 a$="":geta$ 

738 ifa$="b"thengosub768 

748 ifti$>"8092808"thenBi® 

758 goto648 

768 d=953:forf=wtoestep4B8:pokef,65: 
pokef-48,32:sound2,d, 18:d=d-48 

778 ifpeek( f+48) <>32then 1358 

788 next:pokee,32:sc=sc-S 
ifsc<@®thensc=® 

return 
printho$left$(qd$,9)f1$"”....... 
RR time up!" 
fork=1t01288:next 

printel$ _ 
f=596:g=383:fort=1t028 
foro=1t085:next 
sound1,f,5:sound2,g,5:f=f+18:g= 


data8, 16,8,16,8,16,8,16 
data129,66, 126,98, 126, 126,231, 1 


data32,66,37,24,24,164,66,4 
data24,60,102,231,255,36,66,36 
data24,68,90,255,126,24,36,66 
data255,31,15,15,19,32,32,32 
data255,248,2490,240,208,4,4,4 
data126, 129,153, 161,161, 153, 129 


578 next 

558 printho$c4$c4$c4$ 

598 printye$"...-..--.--- "za$"N"z2$z 

NE a ae anne ereinne "zb$ 

BB print 2:5: eure M 

8 Brante oo. M...N”z2$"” N 
"z2$"M"z6$z2$"M"2z6$22$z2$ : 
gaB print." 2: een M 
585". ."z6$26$23$"N"Z6$ 

338 Brink” :2:2- Rue M"26$"”.."z 

5$"_._"z6$z6$"M "z6$z2$ 

AB Drint-r.. 20.02 ..0: "zag"M"z3$zZ3$" 

N M"z3$" M"z3$"N"26$" M"z6$23$z23$zb 

5 

358 printc4$c4$c4$ 

9368 printgr$".....:-------.-- 0" zm$z 

m$zm$zm$zm$zm$zm$zm$"P 

370 print. - - ax: ao ae MZRS" rn 
an "ZB 

988 print"....--- «===» ..r L"ze$ze$z 

e$ze$ze$ze$ze$ze$zp$ 

998 printho$left$(qd$, 15)1left$laqr$, 
18)gr$;sc 

1888 printc4$c4$wh$".....- fuer neus 

tart taste druecken 

1818 poke239,8:wait239, 1 

10828 getkeyb$:goto53® 

1838 goto1928 

1848 fork=3152t03992:pokek-1824,int 

(rnd{ 1) #6) +2:next 

1858 fort=1t017 

1868 o=int( rnd( 1) #808) 

1878 i=int(rnd( 1) #4) +2 

19088 poke3232+0,i+64:next 

1898 printho$gr$f1$"”...--- druecke e 
ine taste zum start"fo$"” 
11080 getkeya$ 

11198 printho$"”...-.-------- re... .- 


1128 return 

1138 printcl$:q=3892:w=3172:e=4B12: 
a=78:volB 
1148 sc=® 
1150 foru=3888t03847:pokeu,@:nex 
1168 return 

1178 color@,1,8:color4,7,3 

1188 printcl$left$(qd$, 14) gr$left$t 
qr$,6)cy$"refueling” 

1198 poke4852,64 

fory=1t028 
sound1,917,3:form=1t05@:next 
next ; 
printho$left$(qd$, 14) 1left$(lqr$ 


1248 for1=-4852t03892step-48:soundi, 
778,3:sound2,516,3:pokel,64:pokel+t4 
2,32 

1258 fork=1to1ß:next 


. 682208 


1268 next 
1278 For1=-953t07step-6:sound3,1,3:n 
extl:volB 


1288 return 
. 1298 b=8B32 


13898 readda:ifda<>-1ithenpokeb,da:b= 
b+1:g0t01388 

1318 return 

13298 data169,48,162,24,133,87,169,1 
2,133,88,168,9,177,87,133,89,288, 17 
7 

1338 data87, 136, 145,87,288,152,281, 
39,208,244,165,89,145,87,165,87,24, 
185 

1348 data48,133,87,144,2,238,88,282 
‚288,2280,96,-1 

1358 sc=sc+1® £ 

1368 pokef+48,32:pokef,32:poke3232+ 


“ int(rnd( 1) #888) ‚,int( rnd( 1) *4) +66 


1378 fork=953t0688step-28:soundl,k, 
5 

1388 next 

1398 return 

1488 run228 

68888 rem nachspann 
68818 rem * Farbcodes/steuercodes * 
68928 wh$=chr$( 8985) :c4$=chr$( 817) 
68838 rn$=chr$( 818) :ho$=chr$( 819) 
68848 c3$=chr$( 829) :gr$=chr$( 830) 
saa5n F1$=chr$l 138) :Fo$=chr$( 131) 
689680 rf$=chr$f 146) :c1$=chr$l 147) 
68978 ye$=chr$( 158) :cy$=chr$( 159) 
68875 c1$=chr$( 145) :c2$=chr$( 157) 
680888 rem *#* zeichensatz/graphik * 
68898 z2$=chr$( 163) :z3$=chr$( 164) 
6H1B0 z4$=chrä$l 165) :z6$=chr$( 167) 
6B11B zb$=chr$t( 172) :ze$=chr$( 175) 
68128 zm$=chr$( 183) :zp$=chr$( 186) 
69138 zq$=chr$t( 187) :zv$=chr$( 192) 
6B1A4B rem #######%## zeichenfolgen * 
68158 forg=1t048 

6B16B8 qu$=qu$+c2$:q1$=q1$+c1$ 

68165 qd$=qd$+c4$ 

68178 nextgq 

68188 
69198 
62288 
68218 


Basan® 
BBA59B | 
BanBon 


memory == 
program oz 
variables == 
arrays TS 
strings = 
fre(B) == 


202988 
99008 bytes 
bytes 


69238 
682408 
Bu9008 


« 


| LISTING | 


MATHEHILFE 


Hierbei handelt es sich praktisch um einen Luxus- 
Taschenrechner mit Textwiedergabe. Mit Mathehilfe 
können Sie langwierige Berechnungen enorm ver- 
kürzen. 

Im Hauptmenü müssen die gewünschte Berechnungs- 
formel wählen. Dazu tippen Sie den Buchstaben ein, 
der bei einem Unterpunkt invers erscheint. Das Pro- 
gramm fragt dann nach den erforderlichen Daten und 
berechnet die jedweilige Figur. 

Folgende Berechnungen sind möglich: 


— Rechteck -— Dreieck — Quader 
— Kreisring -— Trapez — Sektor 
— Pyramide -— Kreis — Quadrat 
— Vieleck — Würfel — Ellipse 
— Kegel — Zylinder 


“ Ist eine Berechnung abgeschlossen, kann zusätzlich 
noch gewählt werden, ob eine neue Berechnung für 
dieselbe Figur erstellt werden soll. 
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Mathehilfe 


12 rem mathehilfe ====-===========16 
28 rem (p) 88/88 commodore welt == 


48 rem (c) 980/88 by p. schwilk == 
52 rem == 
58 rem 
78 rem basic v3.5 ; 
882 rem c16/116,plus 4,c12B == 


98 rem zseeomococececmmocmsemmscmcsmoezmon 
1B8 gosub 3388 
118 rem !!punkte in texten sind 


115 rem !!platzhalter fuer spaces 
128 printcl$:color1,6,5 :color®d,1:c 
olor4,1 

138 printre$rn$"UCCCCCCCCCCCCCEEI"r 


f$ 


148 printrn$"Bmathehilfe....- B"rf$ 
158 printrn$"JCCCCCCCECCCCEEcK"rf$ 
168 print”... „neuen nn sun "c2$b 


1$"by p.schwilk" 

178 color1,6,5 :color®,1:color4,1 
188 printc4$c4$left$(qr$,4) "UCCEEEE 
ECCCCLCECC"Zh$H"CCECCECCECCECEEI" 

198 printleft$(qr$,4)"B "rn$"r"rf$" 
echteck...... B.."rn$"k"rf$"reis.... 
ER 2 

288 printx3$ 

218 printleft$(qr$,4)"B "rn$"d"rf$"” 
relieck:::=.%; B.."rn$"gq"rf$"”uadrat.. 
> as = Nie 

228 printx3$ 

238 printleft$(qr$,4)"B q"rn$”"u"rf$ 
"aders su: 06% B.."rn$"v"rf$"ieleck.. 
rt 

248 printx3$ 

258 printleft$(qr$,4)"B kre"rn$"i"r 
f$”"sring--.-. B.."rn$"w"rf$”"uerfel.. 
ee : Sig 

268 printx3$ 

278 printleft$ftqr$,4)"B "rn$"t"rf$" 
rapez.....»-.- B.."rn$"e"rf$"llipse.. 


288 printx3$ 

298 printleft$(qr$,4)"B "rn$"s"rf$" 
ekEor ... 74236 B..ke"rn$"g"rf$"el.... 
nr = - 

388 printx3$ 

318 printleft$(qr$,4)"B "rn$”"p"rf$"” 
yramide...--. B.."rn$"z"rf$”"ylinder. 
Eee 2 1 

328 printleft$(qr$,4) "JECLLCCCCCEEE 
CCC"ZE$"CECCCCCECCCCCECK" 

338 getkeya$ 

348 ifa$=" "then338 

358 ifa$="r"then498 

368 ifa$="d"then67B 

378 ifa$="u"then83® 

3808 ifa$="i"then1938 


398 ifa$="t"then1228 

aB8 ifa$="s"then14BB 

418 ifa$="p"then 1598 

428 ifa$="k"then17608 _ 

438 ifa$="q"then196®. 

448 ifa$="v"then2168 

a50 ifa$="w"then2378 

468 ifa$="e"then2578 

478 ifa$="g"then2768 

488 ifa$="z"then2938 

498 printcl1$ 

s88 print"..-.--.---- "re$rn$"UCCCECE 
LCCCCEECCCCCCEcI"rf$ 

518 prinE”.. ne. "Enns HB-re.22 rec 
hreek-. zu. B"rf$ 

52% Brink” une. urn- "rn$"JICCCCEECCcEE 
CECCCECCECCcK"rf$ 

538 color1,6,5 

548 printc4$c4$c4$"seitenlaenge a.. 
"::inputa 

558 printc4$"seitenlaenge b..";:inp 
utb 

568 printc4$c4$left$(lqr$,5)"flaeche 
="; :printa®b:printc4$left$(qr$,5)" 
umfang =";:print 2#a+2#b 

578 printleft$(qd$,4)bl$rn$"U"x8$"I 


588 printrn$fl$"a*b....... a ieneeiariee B" 
598 printrn$um$"2*a+r2*b....-..-- B" 
688 printrn$vo$"-------...-.-- -- 8” 


618 printrn$"J"xB$"K" 

628 color1,6,5:print"noch weitere r 
echnungen (j/n)" 

638 getkeya$ 

648 ifa$=-" "then638 

658 ifa$="j"then490 

668 ifa$="n"then128 

678 printcl$ 


688 print”....------- "re$rn$xa$ 
698 print"”...-.-....»-- "rn$"”B...-- dre 
Teck... sales B" 


7088 printx4$ 

718 color1,6,5:printc4$c4$c4$"grund 
seite a..";:inputa 

728 printc4$"hoehe.....-- h. -."5= input 
h : 

738 printc4$c4$left$(qr$,5)"flaeche 

="; :print a#th/2 
748 printx5$ - 


758 printrn$fl$"ath/2.......-..-- B" 
768 printrn$um$"”-----.........-- B"” 
778 printvo$"-----..----..... B" 


788 printx1i$ 

798 color1,6,5:print"noch weitere r 
echnungen ( j/n)":getkeya$ 

8808 ifa$=-" "then?79d 

818 ifa$="j"then678 

828 ifa$="n"then128 
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Mathehilre 


838 printcl$ 


8408 print"”...-------- "re$rn$xa$ 
858 print"”....---.-»-.- "rn®. Boos srs su 
quader.......- B" 


868 printx4$ 

878 color1,6,5 

888 printe4$c4$" laenge a..";:inputa 
:printc4$"breite b..” ;:inputb:print 
c4$"hoehe..h.."”; :inputh 

898 printc4$c4$left$(lqr$,5)"flaeche 


988 
918 


print 2%( a8b) +2*( a®h) +2*(b*h) 
printc4$left$(qr$, 5) "umfang. .="” 


928 
938 
948 


print a#4+b#4+h*4 

printv2$; 

print a*#b#*h 

958 printc4$bl$rn$"U"x2$"I" 

968 printrn$f1$"2*( a*b) +2#(a*h) +2*( 
b*h) B"” i 

978 printrn$um$"a#4+b#4+h#4......-- 
ee: 

988 printvo$"a#tb#h.....--------....- 
BT 

998 printrn$"J"x2$"K" 

1888 color1,6,5:print"noch weitere 
rechnungen ( j/n)":getkeya$ 


1818 ifa$="j"then83® 

1828 ifa$="n"then128 

1838 printcl$ 

1848 print"”.....------ "re$rn$xa$ 
1858 print"”....--..=-- "ns Bu: kr 
SELISrINE:..0:=2=- B”. 


1868 printx4$ 

1878 color1,6,5 

19858 printc4$c4$c4$"innenradius Di: 
.";inputri 

1898 printc4$"ausenradius nee 
putr2 - 

1188 printc4$c4$left$(qr$,5) "Flaech 
e =". 


sin 


1118 print ((r1+r2)*(r2-r1)* ) 

1128 printc4$left$(qr$,5) "umfang. .= 
’ 

1138 print 2*#r2* 

1148 printleft$(qd$, A)b1$rn$"”UCC"x2 

5"T” 

1158 BE I a 

His"). 

1168 ken 2:2r2#8"pi$"...----- 
ee B" 

1178 printvo$” ---------- 77777070 

B" 


1188 printrn$"JCC"x2$"K” 

1198 color1,6,5:print"noch weitere 
rechnungen ( j/n)":getkeya$ 

1288 ifa$="j"then1838 

1218 ifa$="n"then128 


— 2 
1228 printcl$ 
1238 En a ee ne "re$rn$xa$ 
1240 DEINES ame we a a u er 
-Lraßez. 222505 B" 


1258 printx4$ 
1268 color1,6,5_ 
1278 printc4$c4$c4$"seitenlaenge a. 


."; :inputa 


1288 printc4$"seitenlaenge b..";:in 
putb 

1298 printc4$"hoehe....-..-- h.22 2:in 
puth 

1388 printc4$c4$c4$left$(lqr$,5)"fla 
eche ="; 

1318 print (a+b)/2*#h 

1328 printc4$c4$cA$b1l$rn$"U"x7$"I" 
1338 printrn$f1$"(a+b) /2*h.....-- B" 
1348: printrn$um$"------ --. -- - :=+ B” 
13508 printvo$"=---- + >- B" 
1368 printx1$ 

1378 color1,6,5:print"noch weitere 


rechnungen (j/n)":getkeya$ 


1388 ifa$="j"then1228 

1398 ifa$="n"then128 

1488 printcl$ 

14189>- Print zn: er ww“ "re$rn$xa$ 
1429: BTINE" 2: 2:0, 8 "PN" B: =. 2; 
sektof.. ..- »..% B"” 


1438 printx4$ 

1448 color1,6,5 

1458 printc4$c4$c4$"radius....-.-.- r 
"-:zinputr 

1468 printc4$"zentrirwinkel w.."” 

nputw 

1478 printc4$c4$left$(qr$,5)"flaech 

e = #. 


1488 print r*r* *w/368 

1498 printv2$; 

1588 print 2*#r*#( 1+w/360* ) 

1518 printx5$ 

1528 Drintrn$fl$"r#r*"pi$"#w/360... 
EB 

1538: printrn$5um$"------- - . ...»-» B" 

1548 printvo$"2*r*( 1+w/368*"pi$") B 

1558 printx1$ 

1568 color1,6,5:print"noch weitere 


rechnungen ( j/n)":getkeya$ 


1578 ifa$="j"then1488 

1588 ifa$="n"then128 

1598 printcl$ 

1600: print” „2... 25% "re$rn$xa$ 
1610 printer area u eh a Sa = DOSE RE 
pyramide....... B" 


1628 printx4$ 

16380 color1,6,5 

1648 printc4$c4$c4$"seitenlaenge a. 
”:zinputa 
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Mathehilre 


1658 printc4$"hoehe........ h> =" 5:2In 
puth 
1568 
1578 
16588 
1698 
ı788 
1718 


printc4$v2$; 

print (a*h) *(h/3) 

printx5$ 

printrn$sf IS" -—- 777m: B" 
printrn$um$"----------.-:- -> B" 
printvo$"”(a#h)*#(h/3)..-.- B" 
1728 printx1$ 

1738 color1,6,5:print"noch weitere 
rechnungen ( j/n)":geikeya$ 

1748 ifa$="j"then1598 


1758 ifa$="n"then128 

1768 printcel$ 

5770. DIiNnie Eee ne "re$rn$xa$ 
1788 print"...... : STANS. Bis an rr 
KreiIs.:=:.3..% Bi" 


1798 printx4$ 

1888 color1,6,5 

1818 printc4$c4$c4$"radius r.." 
putr 

1828 printc4$c4A$left$(qr$,5)"flaech 
Be, 

1838 print r”2* 

1848 printc4$left$(qr$,5) "umfang..= 


::in 


’ 

1858 print 2#r* 

1868 printx5$ 

1878 printrn$f1$"r"2#"pi$"”...--...-- 
= ig 

1888 printrn$um$"2#r#"pi$"....--..-.. 
a 

1898 printvo$"-----.....----..- B" 
1988 printx1$ 

1918 color1,6,5:print"noch weitere 
rechnungen ( j/n)" 


1929 getkeya$ 

1938 ifa$=-" "then1928 

1948 ifa$="j"then176®8 

1958 ifa$="n"then128 

1968 printcl$ 

1970- BTINE "44. 0er re "re$rn$xa$ 
988° print -- 3:54:85. %4% "ENS®" Dir. son. 
.quadrat.....-. B" 


1998 printx4$ 

2888 color1,6,5 

2818 printc4$c4$cA4$"seitenlaenge a. 
.";:inputa 

2828 printc4$c4$left$(qr$,5)"flaech 
u ="; 

2838 print a*#a 

2848 printc4$left$(qr$,5) "umfang. .- 


’ 
2858 
28068 
2078 
2888 
2898 


print a*4 

printx5$ ? 
printrn$fl$"a*a...-...-.----- B" 
printrn$um$"a#4.......--.--- BE 
printvo$"==-:.-. =: 0 B" 


2188 printx1$ 
2118 color1,6,5:print"noch weitere 


rechnungen ( j/n)“ 


2128 getkeya$ 

2138 ifa$=" "then2128 

2148 ifa$="j"then1968 

2158 ifa$="n"then128 

2168 printcl$ 

2178 print": um: "re$rn$xa$ 
21889 print „usa - 2822: "NS Br. un. 
„uieleck.- - #25: B" 


2198 printx4$ 

2288 color1,6,5 

S218 printc4$c4$cA$”"seitenlaenge a. 
.”; zinputa 

2228 printc4$"seitenzahl...n..";:in 
putn 

2238 printc4$c4$left$(qr$,5)"flaech 
e =7; 3 

print a*(a/2/tan( /n))*n 
printc4$left$(qr$,5)"umfang..= 


print a*n 
printleft$(qgd$,4)b1$rn$"U"x2$" 


printrn$fl1$"a*(a/2/tan( "pi$"/n 
))*n B” 
printrn$um$"a*n...... sur: 


rintvoßt ee B" 
printrng"J"x2$"K" 

2328 color1,6,5:print"noch weitere 
rechnungen ( j/n)" 

2338 getkeya$ 

2348 ifa$=" "then2338 

2358 ifa$="j"then2168 


2368 ifa$="n"then128 

2378 printc1$ 

2380° print”. - . =» 2: 0:& "re$rn$xa$ 
2390. print”... ses. ae "rn. B. 205% 
:wuerfel:...:- - B" 


2488 printx4$ 

2418 color1,6,5 

2428 printc4$c4$c4$"seitenlaenge a. 
.";:inputa 

2438 printc4$c4$left$(qr$,5)"flaech 
Ber 
24480 
2458 


print a#ta#6 _ 
printc4$left$(qr$,5)"umfang..= 


print a*12 

printv2$; 

print a*a*a 

printleft$(qd$,4) b1$rn$"U"x2$" 
printrn$fl$"a#a#6......------- 


2518 printrn$um$"a*#12.......-.--.=- 
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la 

2528 printvo$"ata#a.....-----e..- B" 
2538 printrn$"J"x2$"K" 

2548 color1,6,5:print"noch weitere 
rechnungen ( j/n)":getkeya$ 


25598 ifa$="j"then2378 

2568 ifa$="n"then12® 

2578 printcl$ 

2588 print"...---.-.---- re$rn$xa$ 
2598 print"...-.--.----- "FRHNS Doreen 


.ellipse..-:.-- B" 

2688 printx4$ 

2618 color1,6,5 

2628 printcA$c4$cA$" Haustächae ER 


‚:inputa 

2638 printc4$"nebenachse b..";:inpu 
tb 

26498 printc4$c4$left$(qr$,5)"flaech 
e ="; 


2658 print a#b* /4 

2668 printleft$(qd$, ATENUENE) U”x6$” 
T* 

2678 printrn$fl$"a*b*"pi$" IS ee 
es = ia 

2680 printrn$um$"-------........-> a 
B"” 

2698 printvo$"-------.....-:....B" 

2788 printrn$"J"x6$"K" 

2718 color1,6,5:print"noch weitere 

rechnungen (j/n)" 

2728 getkeya$ 

2738 ifa$=" "then2728 

2748 ifa$="j"then257® 

2758 ifa$="n"then128 

printc1l$ 


Pe u Zr u zu 


Bekegel.. names 87 

printx4$ 

color1,6,5 
printc4$c4$c4$"radius r..";:in 
printc4$"hoehe..h..";:inputh 
printc4$v2$; 

print (1/3)*h#(r"2)* 
printleft$(qd$, A)b1$rn$"U”"x6$"” 


printraägf1$”->-7->="27 ee 
Brintrngung" - men u 
printvo$"(1/3)*h*(r"2)*"pi$".. 
printrn$"J"x6$"K"” 

2988 color1,6,5:print"noch weitere 
rechnungen ( j/n)":getkeya$ 


29198 ifa$ß=" j"then2768 
2928 ifa$="n"then12® 


2938 printcl$ 
2948 print" 
2950 print”. .»2=.0.2:-% Nrn$r Dec. 2 
zylLinder ..: as» B" 

2968 printx4$ 

2978 color1,6,5 


2988 printc4$c4$c4$"radius r..";:in 
putr 

2998 printc4$"hoehe..h.."; :inputh 
3980 printc4$v2$; 


3818 print r"2* *h 

3828 printleft$(qd$,4)b1l$rn$"UC"x7$ 
ken 

3838 printrn$f1l$"-------.....-.---> B 
3848 printrn$um$"-------....- 25 B 


printvo$"r"2#"pi$"#h........=. 


3868 printrn$"JC"x7$"K"” 

3878 color1,6,5:print"noch weitere 
rechnungen ( j/n)" 

3888 getkeya$ 

3898 ifa$=-" "then3888 

3188 ifa$="j"then2938 

3118 ifa$="n"then128 

3128 printcl$ 

3138 
3TAB BEINE”: =: 5808 25 


"cey$rn$xa$ 
"rn$"B....+rta 


printx4$ 

run 

rem nachspann 
rem * farbcodes/steuercodes * 
wh$=chr$( 885) :c4$=chr$( 817) 
rn$=chr${ 818) :re$=chr$( 828) 
c3$=chr$( 829) :b1$=chr$( 831) 
c2$=chr$({ 145) :rf$=chr$( 146) 
c1$=chr$( 147) :cy$=chr$( 159) 
e1$=chr$( 157) 

rem ##* zeichensatz/graphik *# 
za$=chr$( 171) :zg$=chr$( 177) 
zh$=chr$( 178) :zi$=chr$( 179) 
3418 ym$=chr$( 219) :pi$=chr$( 255) 
rem #F#t#x###% zeichenfolgen * 
3438 forg=1t048 
qu$=qu$+c2$:q1$=q1$+c1$ 
qr$=qr$+c3$:nextg 
f1$="Bflaeche= ":um$="Bumfang 


vo$=rn$+"Bvolumen= ": 

Vogt ar volumen =" 
x9$="TCECCECCCCCECCECCCECCCECCEE" 
xa$="ULCCCCECCCCCCECCECCECCECEEI" 
x8B$="CC"+x9$ 

x2$="CCEC"+x8$ 

3528 x3$=1left$(qr$,4) +za$+"CCECCcCcCEC 
ECCCCCEC"+ym$+"CCCCCECCCCECCECEE"+ZI$ 
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Be KASSE"... "+rn$+"J"+x9$+ 
Er“ 

3548 x6$="CCC"+x8$ 

3558 x7$="C"+xB$ 

3568 x5$=1left$(qd$,4) +b1$+rn$+"U"+x 


3$+"CCCI” 


3578 x1$=-rn$+"J3"+x8$+"CK" 

3588 return 

3598 rem >>> == = === == 2 == om 

3688 rem 888888 bytes memory == 

3618 rem BUB8B808B bytes program == 

3628 rem 898808 bytes variables == 

3538 rem 888888 bytes arrays == 

3648 rem 889888 bytes strings == 

3658 rem 888888 bytes fre(ß) == 

PEEK’S UND POKE’S 

FUR DEN Ci6 

POKE 

0,0 Recorder läuft.nicht mehr 

0,15 Recorder läuft wieder 

19,5 schaltet Fragezeichen nach Input aus 

19,0 schaltet Fragezeichen wieder ein 
(unbedingt angeben) 

22.32 listet unlesbare Zeilennummern 

22,33 listet statt Zeilennummern nur 
Fragezeichen 

22,35 listet ohne Zeilennummern 

22:25 listet wieder normal 

153,0 Rechner stürzt ab 

133,3 Rechner wieder normal 

774,0 listet nur die erste Zeilennummer und 
stürzt dann ab 

774,27 listet wirre Befehle und stürzt dann ab 

774,136 listet nur Zeilennummern 

774,187 

773,205 listet nur Zeilennummern 

774,242 

113,2 springt nach List in die eingebaute 
Software (Plus4) 

806,103 schaltet die Stoptaste aus 

806,101 schaltet die Stoptaste wieder ein 

1344,0 Tastenwiederholung nur für Del, Cur 
und Space 

1344,64 keine Tastenwiederholung 

1344,128 wieder normal 

1351,128 blockiert Groß-/Klein-Umschaltung 

2022,z 

2023,s obere Bildschirmfensterecke 

2021,7 

2024, untere Bildschirmfensterecke 

2034,x Übergabewert A-Register 

2035,x Übergabewert X-Register 

2036,x Übergabewert Y-Register 

2036,x Übergabewert Statusregister 

65290,160 sperrt Tastatur 

65290,162 entriegelt Tastatur 

65287,40 schwarzer Bildschirm 


65309,200 Bild läuft 


HANDELSREISE 


Ihr liegt mit einer kleinen Handelsflotte von zwei Schif- 
fen im Hafen von Marseille. Ihr seid von Eurem Büro 
beauftragt, ein Jahr im Mittelmeer auf Handelsreise 

zu gehen und Eure Ladung von 1000 Fässern Getreide, 
200 Fässern Branntwein und 500 Fässern Wein in 
fremden Häfen gewinnbringend einzutauschen. Ihr be- 
fehligt als Kapitän eine Mannschaft von 200 Matrosen, 
die Ihr sicher durch alle Gefahren bringen müßt. 


Spielverlauf: 


Nach der Einleitung zeichnet der Computer eine Land- 
und Seekarte des Mittelmeerraumes, in dem operiert 
werden kann. Sodann erhalten Sie eine Liste der 
Häfen, die angelaufen werden können. 

Wählen Sie einen Hafen aus und begeben Sie sich auf 
die Reise, die natürlich einige Tage dauern kann. 
Sind Sie in einem Hafen angelangt, erhalten Sie eine 
Liste Ihrer Ladung sowie der angebotenen Waren. 
Ebenfalls angezeigt wird der Bedarf an Waren in dem 
betreffenden Hafen. Nun können Sie kaufen, verkau- 
fen, Schiffe kaufen oder weiterfahren. Benützen Sie 
hierzu folgende Tasten: 

V — Verkaufen 

K — Kaufen 

S — Schiffe kaufen 

W — Weiterfahren 

Kaufen oder verkaufen Sie, so geben Sie zuerst die be- 
treffende Ware im Klartext ein. Bestätigen Sie mit 
RETURN. Danach erscheinen zwei Fragezeichen, die 
nach der Mengeneingabe verlangen. Geben Sie diese 
ein. Wollen Sie Schiffe kaufen, fragt das Programm 
nach der gewünschten Anzahl sowie dem Preis pro 
Schiff. 

Und nun viel Spaß bei diesem Wirtschafts- und 
Strategiespiel. 


85 


Hendelsreise 


18 rem handelsreise ========-=-=-=-=-=]16 
28 rem (p) 11/86 commodore welt == 
38 rem ==>===================== === 
48 rem (c) 18/86 by a. gloeckner == 
58 rem leverkusen =” 
68 rem == 
78 rem basic v3.5_ == 
88 rem plus4 c16/116 mit 64k = 
98 rem ==>================= ===> 
95 gosub 69898 

188 rem !! punkte in texten sind 
185 rem !! platzhalter fuer spaces 


118 senelr:char,13,5,"handelsreise" 
:vol8ß:gosub 1888 

128 gosub929:gosub198:ifha$=""then 
188 

138 fort=1toen%( j%,h%) :ifen%[ j%,h%) 
=ßBthen168 

148 st%=st%+1:gosub468:ifz<dthenpri 

nt"es geschah nichts besonderes":go 
sub448 

158 gosub2328 

168 nextt:r%=9:hr%=® 

178 onh%+igosub 1528, 1248, 1278, 1388 
‚1338, 1368, 1398, 1428, 1458, 1470, 1588 
188 gosub498:gota12 

198 color®,1:color1,8,5:senclr 

2088 ifst%>365orb=5thengoto288 

218 data cypern,alexandria,benghasi 
‚algier,valencia,marseille 

228 data neapel,venedig,athen,istan 
bul,odessa:senclr 

238 restore218:for i=B to 18:read h 
a$(i) 

2A®B char,5,2*i,ha$(i):char,38,2*i,s 
tr$(i) :next i 

258 print:print 

268 input"welchen hafen wollt ihr a 
nlaufen";a$:h%=val(a$) :ifa$="h"then 
stop:goto198 

278 return 

288 if j%=5orb=5then31® 

298 scnelir:char,?,5,"das jahr ist wv 
orbei, ihr muesst":char,8,7,"sofort 
marseille anlaufen." 

308 gosub2328:h%=5:hf%=1:ha$="marse 
ille":return 

318 t=-1:printel$:gosub568:poke2823 
‚28: ifb=®thenprintel$+c4$+c3$+c03$+c 
3$+"bilanz”:goto 338 

328 goto418 : 

338 printc4$"nach etwas ueber"”:prin 
t"einem jahr seid ihr in eure heima 
tstadt zurueckgekehrt. 

348 print"es ist euch gelun-":print 
"sen eure flotte von 2 auf”;s%" sch 
ITT-S 

345 ifs%=-®thenprint"”e"; 


358 ifs%<2thenprint” zu dezimieren" 
:g0t0o38®:elseprint"e zu bringen." 
368 printc4$"dafuer und fuer eurege 
schaeftstuechtig- keit erhaltet ihr 
365 print"den titel eines” 

378 print"admirals und duerft noch 
eine reise an- treten.":1=4:gosub23 
AB: gotca1788 : 
388 printc4$"auch wenn ihr es":prin 
t"nicht verdient habt,bekommt ihr n 
och" 

385 print"einmal eine chance." 

398 print"ihr duerft nochmal..euer 
glueck machen..und eine neue han-.. 
delsreise beginnen." 

488 restore:1=-9:gosub2348:g0t017B8 
418 printcl$"leider ist euch das ba 
rgeld ausgegangen.euer schiff musst 
e..daher meistbietend 

428 print"versteigert werden. das b 
este ist, ihr..beginnt von vorn.":g 
osub458:goto 1788 

438 sound1,316, 15:sound2, 739, 15: for 
1=-8t01588:next:return 

448 sound1,778,15:return 

458 sound 1,881,25:sound1,855,25:so 
und1,798,25:return 

468 zu%=int{5*(rnd(8))/1.81+1):colo 
r1,3,3:color@,2,7:printcl$left$(qd$ 
‚8) ;st%".tag"cA$cA$ 

478 z=rnd( 8) :ifz<8.85thenprint"es g 
eschah nichts besonderes" :goto448 
ABB onzu%goto154®, 1688, 1658, 1698,17 
AD 
498 
588 


.. ” 


color1,15,2:color®,8,6:t$= 
az=int((8.75+rnd( 8) /2) #108) /108 
518 nz=int(l(9.75+rnd( 8) /2) #188) /108 
528 scencelr:char,18,1,rn$+"ihr koenn 
t kaufen"+rf$+":":char,298,3,"ware": 
char ,32,3,"preis":print 

538 print:printtab( 28) ;a1$;a1%*az:p 
rinttab( 28) ;a2$;a2%*az:printtab(2®) 
‚a3$;a3%*az 

548 char, 18,9,rn$+"ihr koennt verka 
ufen"+rf$+":":char,28,11,"”ware":cha 
r,32,11,"preis":print 

558 print:printtab( 28) ;n1$;n1%*nz:p 
rinttab( 28) ;n2$;n2%*nz:printtab(2®) 
;‚n3$;n3%#nz 

555 printtab( 28) ;n4$;n4%*nz 

568 printho$c4$rn$"”ihr habt"rf$":": 
print 

578 forl=-1t028:printw$([ 1) ;h%[1) :nex 
tl 

588 print:print"bargeld....";int(bg 
) :printrn$ha$( h%) rf$; :ift=-1 then r 
eturn 
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>98 ifb=-5 then return 

sa® ifma%<s%#18Band( t$=""ort$="w"or 
+$-"s")thengosub2138:got0528 

518 getkeyt$:ift$="w"then66B 
ift$="kK"thengosub818 
ift$="v"thengosub678 
ift$="s"thengosub2238 

got0o528 

558 ifma%<199*s%then598:elsereturn 
poke2822,17:poke2823,28 


printel$"was wollt ihr......- ve 
:inputw$ 


588 
rkaufen und...---- wieviel"; 
‚n%: gosub122B:v%=B 

598 forl=-®to28:ifinstr(w$L1) ,w$)=1t 
henv%=1 

788 nextl:ifv%<>Bthen?38 

718 printcl$"diese ware besitzt..ih 
r nicht!” 

728 gosub438:goto68ßB 

738 ifh%[ v%) >=m%then?75® 

748 printc1$"soviel besitzt ihr..ni 
cht!":goto 728 


758 ifinstr(n1$,w$) =1thenp=n1%:goto 
588 

768 ifinstr(n2$,w$) =1thenp=n2%:goto 
888 x 

778 ifinstr(n3$,w$) =1thenp=n3%:goto 
888 

788 ifinstr(n4$,w$) =1thenp=n4%:goto 
888 

798 printcl$"danach besteht kein be 


darf!":goto?728 

BOB hl v%) =h%l v%) -m%:bg=bg+p*m%#nz: 
mw%=mw%-m%: gosub448:poke2922,8:poke 
2923,8:return 

818 poke2822, 17:poke2923,28B: nr 
$"was wollt ihr kaufenund wieviel" 
:inputw$,m%:gosub 1228 

828 ifinstr(a1$,w$)=1thenp=a1%*az*m 
%:g0t0878 

838 ifinstr(a2$,w$) =Ithenp=-a2%*az*m 
%: g0t0878 

848 ifinstr(a3$, ‚w$) =1thenp= =33%*az*m 
%:g0t0878 

858 printcl$"diese ware wird" 
"nicht angeboten!" 

868 gosub439:goto B1B 

878 ifp>bgthenprintcel$"soviel geld 
habt....ihr nicht!":goto 868 

888 ifmw%+m%>2809*s%thenprintcl1$"ih 
r habt nur noch. .";2888*s%-mw%"lade 
raum!":goto 868 

898 forl=-8t028 

908 if w$=1left$(w$(l 1) ,len[w$))then 
h%L1)=h%[1) +m% 

918 nextl:bg=bg-p:1a%=1a%-m%: mw%= mw 
%+m%:gosub448:poke2922,8:poke2823, [) 
:return 


:print 


928 printcl$;:color1,18,2:color@,15 

‚5S:printrn$13$13$rf$ 

939 print”.."yq$rn$13$"..."ze$zo$z1 

£rf$zm$yg$rn$" "rf$zB$zm$ya$rn$". 
"rf$ 

948 print” 
"rn$zB$" "yq$rf$"” 

f$ 

958 print” 


..."yq$rn$13$" "rf$zB$". 
"rn$z8$" 


"rf$" DERERE "y 


„55. EN$LISE” 
q$z8$zm$" "zm$rn$zi$ze$" 
968 print"... "rn$zj$"”...."rf$zB$". 
"vq$rn$". "rf$zBßygsrn$"......."; 
965 printrf$z 8118” "vg$rn$".."rf$ 
978 print” "rn$zj$"” "rf$z8$". 
.."rn$"”..."rf$".."yq$rn$"” “ 
975 printrf$za$11$". ."rn$zk$” 
988 ee zi$rf$"”. 
ERBEURETN "va$rn$"”. yasrTs)- "vq 
$en$" ss =: 
985 printz6$rf$118".." rn$zk$" "rf$ 
998 print"”..."rn$z8$"” "rf$zj$".. 
"rn$"” “rf$".."rn$"..."rf$".. yq$rn 
g" Ne N u 
995 printrf$11$".. "rn$z4$" "rf$ 
1888 printrn$zn$zm$z2$"....- u Sa 
.2.."yq$rn$".."yq$rf$"..."rn$".:.-.. 
"vgSrt&” "5 
1885 printze$z1$rn$zm$" 
e$z3$rn$z8$".." 
1818 Brinsrig- ne a 
$z8$rf$"..."yq$rn$"”. 
Pnsr 12 
1815 RPEDERTERPFERDETSER, "rf$ 
1828 printirn$"”.....- "rf$z8$"” "rn$ 
" __"rf$"...."yq$rn$".."yq$rf$".."rn 
1825 printrf$z8$” "rn$11$"”. 
1838 printrn$"”...... "rf$". 


"zm$rf$z1$z 


"rf$z8$"”..."”rn 
."yq$rf$".."yq$ 


."rf$ 
.."rn$"”. 


SIR an "eng". _"rf$".."rn$".."r 

28" .4:"5 

1835 printz9$rn$11$"..” rf$ 

IMAR printrn$" ne "z9$rf$”"...."zB$ 
Serena “"rn$" "rF$" "yq$"”.."yq$rn$"” 
"yasrf®$”.. -"; 

1845 printrn$l1$". ."rf$ 

1858 printrn$"”..... "rf$zj$11$" "yq$ 

rn$yq$rf$"...."rn$z8$" "rf$"..."yq$ 

rn$l11$" "rf$ 

1868 printrn$"...."rf$z8$11$".."rn$ 

z8B$rf$z8$"..."rn$"..."rf$"”..... "zm$ 

zn$zm$" "”; 

1865 printyq$rn$"..... "rf$ 

1878 printrn$"..."zi$rf$11$"...”"z8$ 
saw Vasrns TTSZDE nr "rn$"” 

"rf$zB8$"” "”; 

1875 printrn$"”..... "rf$ 

1800 printyq$z8$11$"” "yq$rn$”.."rf$ 
Du se aan "z70$z0$Z0$®” ...... ..... EN®. -. 
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ser rts 

1898 print"....-.-. "ze$ze$ze$ze$".. 
SYGP$ zw: 2r TZMSZMI ua» "rn$ 

ee "rf$ 

1188 printrn$z8ö$yg$rf$" "z3$zo$z1$r 

n$znsz2$" :..:». "vq$rf$13$z6$rn$”.... 
."rf$ z 

1118 printrn$11$”. .."rf$zk$13$c1$r 

DSEKS"T. . "rf$ 

1128 printrn$11$"...."rf$z4A$13$c1$r 

n$z4$",.... - "rf$ 

1138 printrn$11$"..."rf$z8$"....-- = 

rn$z8$" "znörf$ze$"”....----- "rn$zdS 

ERS "TEE 

1148 printrn$11$"..."yqa$rf$"...... = 

rn$" .„."z2$zn$rf$z1$rn$zn$z2$"”..." 

22"; :u: we “rf$ : 

1158 printrn$11$"...."zm$rf$ze$"... 

“rn$z8$13$rf$ 

1168 printrn$13$11$"....----- a a 

poke4971,168:color1,1:char1,14,9,"n 

eapel" 


1178 char1,5,2,"marseille"”:char1,15 
‚3,"venedig”:char1,28,1,"odessa":ch 
ar1,29,18,"istanbul” 

1188 char1,29,16,"cypern"”:char1,21, 
13,"athen":char1,8,11,"valencia":ch 
ar1,5,19,"algier" 

1198 char1,28,23,”"ben-":char1,19,24 
‚"ghasi":char1,26,23,"alexan-":char 
1,26,24,"dria"” 

1280 char1,x%+1,y%-1,"Y":char1,x%,y 
%,str$(s%) :char1,x%,y%,yq$:char1,x% 
+2,y%,z8$ 

1218 char,8,24,fl$+"weiter mit spac 
e"+fo$:getkeyt$:return 

1228 rem if len(w$)<11 then w$=w$+ 
".goro. 1128 

1238 return 

1248 j%=1:x%=27:y%=21:a1$=w$( 1) :a2$ 
=w$( 2) :a3$=w$l 3) :31%=120:a2%=-70:23% 
=188 

1258 j%=1 - 

1268 n1$=w$( 14) :n2$=w$( 4) :n3$=w$[ 28 
) :n4$=w$( 12) :n 1%=150:n2%=128:n3%=18 
8:n4%=98: return 

1278 j%=2:x%=17:y%=21:a1$=w$( 4) :a2$ 
=w$( 5) :a3$=w$( 6) :a1%=80:a2%=109:23% 
=158 

1288 j%=2 

1298 n1$=w$L[ 12) :n2$=w$L[ 17) :n3$=w$( 8 
) :n4$=w$( 7) :n1%=79:n2%=140:n3%=480: 
n4%=38: return 

1388 j%=3:x%=4:y%=17:a1$=w$( 7) :a2$= 
w$( 8) :a3$=w$l 9) :a1%=30:a2%=300: a3%= 
52 

1310 5j%=3 

1328 n1$=w$( 12) :n2$=w$( 28) :n3$=w$L 1 


3) :n4$=w$( 2) :n1%=58:n2%=188:n3%=118 
:n4%=98: return 

1330 j%=-4:x%-6:y%=-18:01$-w$( 9) :a2$= 
w$l 18) :a3$=w$l 7) :a1%=60:02%=200:a3% 
=48 

1340 j%=4 

1358 n1$=w$l 1) :n2$=w$l 15) :n3$=w$( 8) 
:n4$=w$( 6) :n1%=169:n2%=69:n3%=358:n 
4%=288: return 

1368 j%=5:x%=9:y%=5:a1$=w$([ 15) :22$= 
w$L 11) :a3$=w$l 12) :a1%=40:a2%=60:a3% 
=38 

1370 j%=5 

1388 n1$=w$t 18) :n2$=w$[ 7) :n3$=w$( 6) 
:nA4$=w$( 1) :n1%=189:n2%=698:n3%=258:n 
4%=-2808: return 

1398 3%=6:x%=12:y%=10:31$=w$[7) :a2$ 
=w$L[ 13) :a3$=w$l 15) :31%=50:a2%=90:a3 
%=48 

1408 j%=6 

1418 n1$=wSl 16) :n2$=w$[ 4) :n3$=w$l 18 
) :n4$=w$( 14) :n 1%=158:n2%=108:n3%=23 
8:n4%=138: return 

1428 j%=7:x%=16:y%=6:a1$=w$( 2) :a2$= 
w$( 18) :a3$=w$( 14) :a1%=89:a2%=2508:a3 


‚%=1208 


1430 j%=8 

1448 n1$=w$( 18) :n2$=w$L[ 17) :n3$=w$( 6 
) :n4$=w$( 7) :n1%=118:n2%=208:n3%=228 
:n4%=78:return 

1458 j%=8:x%=25:y%=14:a1$=w$( 15) :a2 
$=w$( 16) :a3$=w$l 20) :a1%=40:a2%=100: 
a3%=9B 

1468 n1$=w$( 19) :n2$=w$( 9) :n3$=w$l 11 
) :n4$=w$( 2) :n1%=698:n2%=49:n3%=88:n4 
%=-98:return 

1478 rem***istanbul*** 

14808 j%=9:x%=27:y%=8:a1$=w$l 17) :a2$ 
=w${ 15) :a3$=w$( 9) :a1%=1909:a2%=509:a3 
%=-40 “ 

1498 n1$=w$( 11) :n2$=w$l 14) :n3$=w$([ 3 
) :n4$=w$( 13) :n 1%=98:n2%=168:n3%=288 
:n4%=188:return 

150898 j%=198:x%=27:y%=2:a1$=w$l[ 18) :a2 
$=w$Ll 12) :a3$=w$l 9) :a1%=69 :a2%=29: a3 
%=38 

1518 n1$=w$( 7) :n2$=w$l 17) :n3$=w$Ll 13 
) :n4$=w$( 15) :n1%=88 :n2%=1598:n3%=358 
:n4%=78:return 

1528 j%=9:x%=29:y%=15:21$=w$( 28) :a2 
$=w$( 19) :a3$=w$l 13) :31%=80:a2%=4B:a 
3%=98 

1538 n1$=w$( 12) :n2$=w$l( 4) :n3$=w$( 9) 
:n4$=w$( 2) :n1%=68:n2%=1298:n3%=58:n4 
%=-98:return 

1548 ifs%=-lorz<.92+s%*.Bithenz=-1i:r 
eturn:elsegosub458 

1558 print"ein orkan ueberraschte e 


88 


HTendelsreise 


wre flotte aus.."c4$"heiterem himme 


"558 printc4$"allein euer schiff ko 
nte sich in eine.."c4$"nahe bucht 
retten,” 

"578 printc4$"alle anderen gingen v 


538 for1=-8t028:h%( 1) =h%( 1) /s%:next 


urn 
588 ifs%<2thenz=-1:return:elsegosu 
5458 

1518 print"piraten lauerten eurer f 
lotte hinter...."c4$"einer halbinse 
1 auf." | 

"628 printc4$"es gelang ihnen, eins 
eurer schiffe zu.."c4$"kapern." 


1530 Fa=( s%-1)/s%:forl=8t028:h%1)= 


n%& 1)*fa:nextl 

1548 s%=s%-1:mw%=mw%*fa:ma%=ma%*fa: 
return 

1658 ifr%thenz=®:return:elsegosub45 
2 

1668 print"im letzten hafen muessen 
ratten in den":print:print"laderau 
m gelangt sein." 

1678 printc4$"sie vernichteten ein 
fuenftel der waren.” 

1688 forl=9to29:h%( 1) =h%( 1) #4/5:nex 
t1l:mw%=mw%*4/5:r=1:return 

1698 if s%<4 thenz=-1i:return:elsego 
sub458 

1788 print"auf einem eurer schiffe 
ist die pest...."c4$"ausgebrochen." 
1718 printc4$"um eine ansteckung zu 
verhindern muesst "c4$"ihr es leid 

er versenken.” 

1728 Fa=( s%-1)/s%:forl=8t028:h%([1)= 
h% 1)*fa:nextl 

1738 mw%=mw%#fa:ma%=ma%#tfa:s%=s%-1: 
return : 

1748 ifs%<>ithenz=-1:return:elsegos 
ub458 

1758 print"euer schiff ist im nebel 
auf ein riff..."c4A$"aufgelaufen." 
1768 printc4$"niemand von der manns 
chft konnte sich..."c4$"retten, auc 
h gingen alle waren" 

1778 printc4$"im meer verloren.":1= 

8:gosub2348 

1788 printc4$c4$rn$"wollt ihr nochm 
al?..( j/n)"rf$:poke2823,8:getkeyt$: 
if t$="j"thenrun 

1798 printel$:do:printtab( 16) ;l1eft$ 

(qgd$,5) "spielende" : loop 

18808 dim h%( 28) :bg=- 19880: s%=2:ma%=2 

DO: az=1:mw%=1708:dimw$( 28) : j%=S 


1818 color4,1:color1,18,1:color®,6, 
BEIISET rare “LIE FT eher 
1828 en%( 1,2) =3:en%( 1,3) =7:en%( 1,4) 
=8B:en%( 1,5) =8:en%( 1,6) =7:en%[ 1,7)=7 
1838 en%( 1,8) =4:en%( 1,9) =5:en%( 1,18 
)=9:en%( 8,1) =2:ha$="marseille" 
1848 en%( 2,3) =5:en%( 2,4) =6:en%( 2,5) 
=6:en%( 2,6) =5:en%( 2,7) =5 
1858 en%( 2,8) =3:en%( 2,9) =4:en%( 2,18 
)=9:en%[ 8,2) =5 
1868 en%[ 3,4)=2:en%( 3,5) =3:en%( 3,6) 
=3:en%[ 3,7) =7:en%[ 3,8)=7:en%[ 3,9) =9 
1878 en%[ 3,18) =12:en%( B,3)=9:en%[4, 
5) =2:en%[ 4,6) =4:en%[ 4,7)=8:en%[ 4,8) 
=B 
1858 en%[ 4,9) =18:en%( 4, 18) =18:en%[ 
‚„4) =13:en%( 5,6) =3:en%5,7)=7:en%(5, 
8)=7 ö 
1898 en%( 5,9) =8:en%[5,18)=11:en%(®, 
5) =11:en%( 6,7) =6:en%( 6,8) =S5:en%( 6,9 
6 
1988 en%( 7,8) =5:en%( 7,9) =6:en%[ 7,18 
)=9:en%( 8,7)=8:en%( 8,9) =1:en%( 8, 10) 
=4:en%( 8,8) =4 
1918 en%( 9,18) =3:en%( 8,9) =4:en%[®,1 
8) =6:en%( 6,18) =9:en%[ 8,6) =9 
1928 for 1=8 to 18:en%(1,1)=®:forel 
=®8t018:en%( e1,1)=en%([ l1,e1) :nextel,l 
1938 w$( 1) ="kakao":w$( 2) ="tuche”:w$ 
(3)="porzellan"”:w$(4)="baumwolle" 
1948 w$(5) ="gummi” :w$( 6) ="gewuerze" 
:w$( 7) ="oliven":w$(8) =" juwelen" 
1958 w$( 9) ="fruechte" :w$( 18) ="gold" 
:w$( 11) ="branntwein":w$( 12)="getrei 
de" 
1968 w$l 13) ="schmuck" :w$( 14) ="glasw 
aren"”:w$( 15) ="wein" :w$( 16) ="pergame 
nt" 
1978 w$l 17) ="tabac":w$( 18)="pelze": 
w$( 19) ="sardinen" :w$( 28) ="edelhoelz 
er" 
1988 
1998 
ee Li} 
29909 
2818 
1.1417) 
2828 printc1l$c4$”ihr liegt mit eine 
r kleinen handels-" 
2825 printc4$"flotte von zwei schif 
fen im hafen von 
2838 printc4$”"marseille. ihr seid v 
on eurem kontor....”"c4$"beauftragt, 
ein jahr im mittelmeer" 
20848 printc4$”"auf handlungsreise zu 
gehen und eure...."c4$"ladung von 
18088 faessern getreide," 


fori=1t028 
iflen(w$(i))<1i1thenw$( i)=w$(i) 
:goto1998 


next _ 
h%l 15) =588:h%[ 11) =288:h%( 12) =1 


89, 


Hoendelsrelise 


2858 printc4$"288 faessern branntwe 
in und 588 faessern”c4$"wein in fre 
mden haefen gewinnbringend" 

2868 printc4$"gegen andere waren ei 
nzutauschen.” 

2978 gosub 2328 

2888 printc1l$cA$"ihr befehligt als 
kapitaen der schiffe"” 

2885 printc4$"eine mannschaft von 2 
88 matrosen und 

2898 printc4$"kaufleuten, die ihr s 
icher durch alle..."”c4$"gefahren br 
ingen muesst."” 

2188 gosub 2328 

2118 gosub 1368 

2128 return 

2138 ifma%>=198*s%thenreturn:elsepo 
ke2822,17:poke2823,28:b=b+1 

2148 printcl$"ihr muesst mindes-..t 
"neue see-..leute a 


ens” ; 199*s%-ma%; 

nheuern.die"” 

2158 print"provision betraegt ".az*# 
58;"pro...mann" 

2168 input”wieviele wollt ihr "-m1% 
2178 if mi%<198*s%-ma% then 2228 
2188 if (ma%+m1%) /s%>158 then print 


cl1$"das sind zu viele!":goto 2288 
2198 p=mi%*az*5@:if p>bg then print 
c1$"soviel geld habt ihr nicht!":el 
se 2218 

2288 gosubA438:g0ot02168 

2218 bg=bg-p:ma%=ma%+m1%:b=B 

2228 t$="m":gosub448:poke2822,8:pok 
e2823,8:return 

2238 poke2922, 17:poke2823,28 

2248 printcl$"wieviele schiffe...-w 
ollt ihr kaufen....- ( "289088*az; :inp 
ut"pro stueck)";s1% 

2259 if s1%+s%>16 then printcl1$"sov 
iele schiffe..... werden nicht angeb 
o-ten":goto 2298 

2268 ifs%+s1%<1 then printcl$”"ihr m 
uesst ein......schiff behalten!":go 
to 2298 

2278 p=-20088*az*s1% 

2288 if p>bg then printcl$"soviel g 
eld habt....ihr nicht!":else 2388 
2298 gosub A39:goto 2248 

2388 bg=bg-p:s%=s%+s1%:gosub44B:pok 
e2922,8:poke2823,8:ifs1%<®then mä%= 
ma%+s1%*108 
2318 return 
2328 char1,4,23,f1$+"weiter mit spa 
ce"+fo$ 

2338 getkey t$:if t$=" 
AB:else 2338 

2348 do:readx%: y%=int( x%/ 1808) :x%=i 
nt x%-10008*y%) :sound1,x%, y%*1:1loopu 


”" then goto4 


ntilx%=256 
2358 data3454,1262,8454,3597,1454,3 
597, 1644, 8665,8597,8739, 1784, 3665 
2368 data1644,3597,8665,8644,8572,3 
644, 1665, 3784, 1739, 12755,4739 

2378 data2784,2665,2784,2644,4597,2 
644 , 2572, 12597, 32008 , 256 

2380 data6454,2545,2644,6739,4784,2 
739, 2665,2644,4454,2516,3545, 1665,2 
644 

2398 data2516, 3545, 1665, 2644,2516,2 
SAS, 1665,2644,2665,8784, 32008, 256 
2au0 printrn$13811$" a ae "rf8B: 
:color1,1:char1,14,9, 
68888 rem nachspann 
6BBHIB rem * Farbcodes/steuercodes *# 
6989828 cA$=chr$( 817) :rn$=chr$( 918) 
609838 ho$=chr$f 819) :c3$=chr$( 929) 
68848 Fi$=chr$( 138) :Fo$=chr$( 132) 
6H8H5A rFf$=chr$( 146) :c1$=chr$( 147) 
68968 c1$=chr$l 157) 

69978 rem **#* zeichensatz/graphik * 
68888 zB$=chr$( 161) :z1$=chr$( 162) 
60998 z2$=chr$l( 163) : z3$=chr$( 164) 
68188 zA4$=chr$L( 165) :z6$=chr$( 167) 
6H11Q zB$=chr$l( 169) :z9$=chr$l 170) 
68128 ze$=chr$( 175) :zj$=chr$( 189) 
68138 zk$=chr$( 181) :z1$=chr$( 182) 
69148 zm$=chr$( 183) :zn$=chr$( 184). 
68158 zo$=chr$( 185) :yq$=chr$( 223) 
6B160 rem #*r#tHsait zeichenfolgen *# 
68178 fForg=1to4B 

60188 qu$=qu$+c2$: qr$= qr$+c3$ 

68198 qd$=qd$+cA4$:next 

682998 return 

69218 ======2202 2222222 == == 202== 
68228 rem aaaaan 
68238 913293 
692AB rem BBRHRRH 
68258 BBHn0028 
69268 


692278 
62288 


memory == 
program == 
variables == 


arrays == 
strings == 
fre(®B) == 


LISTING | 


MIETNEBENKOSTEN- 
ERRECHNUNG 


Sie geben die Kubikmeterpreise und die verbrauchten 
Wassermengen ein. Danach werden Ihr Ab- und 
Frischwasseranteil errechnet. 

Der Versicherungsanteil wird durch die Eingabe der 
Gesamtwohnfläche und der eigenen Wohnungsgröße ° 
errechnet. 

Zwischendurch gibt der Rechner Ihren Nebenkosten- 
anteil aus. * 

Der nächste Programmpunkt errechnet Ihren Ölko- 
stenanteil. Sie geben die Übernahme, Neuanlieferung 


musu wgns u 
ee nn en 
ER SER 


ein. Nachdem der tatsächliche Verbrauch ermittelt 

wurde, geben Sie den Literpreis ein und die Gesamtöl- 

kosten werden ausgegeben. Ihr Ölkostenanteil wird 

in zwei Punkten ermittelt. 

I. ERosien durch Gesamtwohnfläche und Wohnungs- 
größe. 

2. Verbrauchskosten durch Ges.-Verbrauchseinheiten 
und eigene Verbrauchs-Einheiten. 

Nun gibt der Rechner Ihre Ölkosten aus. 

Es folgt die Ausgabe Ihres Gesamt-Nebenkostenanteils. 

Jetzt erfolgt die Abfrage Ihrer Nebenkosten-Voraus-. - 

.zahlung. Der Rechner gibt nun die Summe aus, die ge- 

zahlt oder zurückgezahlt wird. 

Zum Ende muß die Druckerabfrage geklärt werden. 

Der Drucker gibt die Nebenkostenerrechnung auf 

Papier aus. 
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Miet —- Nebenkosten 


18 rem miet-nebenkosten c16/116 
28 rem (p) commodore welt = 


3B rem =============2=============== 
48 rem (c) by 

58 rem volker dietz = 
68 rem = 
78 rem SB1B bergheim B1 = 
88 rem = 
98 rem version 3.5 48z/ascii = 
188 rem = 
118 rem c-16/116 +1531 

128 rem === ==-====== === ======== ===> 
138 printchr$( 147) 


rn$=chr$( 818) :rf$=chr$( 146) 
158 fa$=chr${ 138) :fb$=chr$( 131) 


168 c4$=chr$( 817) :c3$=chr$( 829) 

1798 bk$=chr$( 144) :gr$=chr$( 230) 

188 db$=chr$( 154) :re$=chr$( 828) 

198 c2$=chr$( 145) 

288 print c3$ 

218 print c3$ 

228 print c3$ 

238 color 4,14,5:color®,3: 

248 print rn$c3$c3$c3$c3$c3$"miet-n 


ebenkostenabrechnung 
258 print c4$ 

268 print c4$c3$c3$c3$c3$c3$"copyri 
ght by volker dietz 1986_" 

278 printc4$ 

288 printgr$"dies ist ein programm 

zur errechnung der” 

298 printc3$c3$c3$c3$" jaehrlichen m 
iet-nebenkosten "bk$ 

388 printc4$ 

318 print"wuenschen sie eine progra 
mmerklaerung 6370).7” 

328 getkey p$:scnelr 

338 if p$="j"then gosub 2148 


348 if p$="n"then goto 358 

358 printc4$ 

368 print"eingabe des kubikmeterpre 
ises fuer abwasser"”:in 


put aw 

378 print"eingabe des verbrauchten 
abwassers":input vaw 

388 printrn$"die summe fuer abwasse 
r:"aw*vaw”dm”"rf$ 

399 a-aw*vaw 

488 print" eingabe des a 
ises fuer frischwasser" 
input fw 

418 print"eingabe des verbrauchten 
frischwassers"”:input vfw 

428 printrn$"die summe fuer frischw 
asser:"fw*vfw”dm"rf$ 

438 b=fw#vfw 


442 print"eingabe :gebuehren wasser 
she "sinput ızk 

458 printrn$ "die summe fuer frisch 
wasser +wasseruhr :"b+zk"dm"rf$ 


468 print"”.berechnung des abwassera 


nteils":input"hauspersonen";hp:inpu 
t"mietpersonen”;mp 
4782 c=a/hp*mp 


488 printrn$”"die summe des abwasser 
anteils betraegt:"a/hp*mp"dm "rf$ 
492 print” berechnung des frischwas 
seranteils":input"”hauspersonen"”; fwa 
582 input"mietpersonen”;mfw 

518 d=b+zk/fwatmfw 

529 printrn$"die summe des frischwa 


sseranteils be- traegt:"b+tzk/fwa* 
mfw”dm "rf$ 

538 print"eingabe der muellabfuhrko 
sten” :inpute 


548 printrn$"die bisherigen nebenko 
sten betragen: "c+tdte"dm "rf$ 
558 printc4$ 

568 printc4$ 

578 printc4$ 

588 printrn$"berechnung des hausver 
sicherungsanteils":printrn$"vers.-s 
umme :":inputhv 

598 input"hausquadratmeter";hqm 

682 input"wohnungsquadratmeter"”;wqm 
618 printrn$"der versicherungsantei 
} betraegt :"hv/hqgm*wgqm"”dm "rf$ 

6280 fF=hv/hqgm*wgm 

638 printc4$ 

648 printc4$ 

658 printc4$ 

668 printrn$c3$c3$c3$c3$c3$c3$"sons 
tiges eingeben:" 

678 print 

688 print 

698 print 

788 print"hier koennen sie z.b.die 
kosten fuer boilerentkalkung und 
718 print"aehnliches eingeben" 

728 print 

738 input ms 

748 printrn$"die bisherigen nebenko 
sten betragen: " c+d+te+ms+tf"d 
m"rf$ 

758 printc4$ 

768 printc4$ 

778 printc4$ 

782 printrn$fa$db$c3$c3$c3$c3$c3$"b 
erechnung der heizkosten"bk$ 

798 printc4$ 

8988 printc4$ 

812 printc4$ 

828 print"eingabe oeluebernahme vor 
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Miet—-Nebenkosten 


jahr :":input"liter”;vj 

338 print"”eingabe oelneuanlieferung 

en :":input"liter";nl 

548 printrn$"zwischensumme : 
„j+tnl”liter 

358 

"-input"liter"”;bsr 

printrn$"tatsaechlicher verbrau 
ch :":print vj+nl-bsr:printc3$"” 
liter" 

878 g=vjtnl-bsr 

888 printrn$fa$db$"geben sie den li 
terpreis ein”:inputlp 

598 printbk$ 

388 printrn$"oelkosten" 

m” ” 

918 

9328 
k 

338 

2 

948 

E 

958 printrn$"gesamte oelkosten : 

rinth+sk+be+ge "dm" 

966 oe=h+sk+tbe+tge 

97® printrn$c3$c3$c3$c3$c3$"berechn 

ung des oelkostenanteils”" 

988 inpüt"”hausquadratmeter 

9398 input"wohriungsgrosse 
18898 Ff=oe/2/hqm*wgm 

1818 printrn$"festkosten betragen 

":printoe/2/hqm*wqm 


"print 


:printg*1lp"d 


h=g*1p 
input"stromkosten-heizung : 


input"brennerservice 
input"geb.f.abl.-u.abrechn.:";g 


:p 


"-hqm 
"-wgqm 


1828 input"gesamte verbr.-einh";ve 
1838 input"eigene verbr.-einh";ev 
1848 hh=0e/2/ve*ev 

1858 printrn$”"verbrauchsk.betragen 


:":printoe/2/ve*ev"dm" 

1868 ok=ff+hh 

1878 printrn$re$fa$"der oelkostenan 
teil betraegt";ok; "dm" 

iB88 printfb$rf$bk$ 

1898 printrn$:input”sonstige gebueh 
ren in einer summe einge-ben :";dli 
1198 printrn$"die gesamten nebenkos 
ten betragen :dm":printe+d+hv+re+tdl+ 
hh+fFf 

1118 es= „ardshterdlschherr 

1128 printrn$gr$" geben sie jetzt i 
hre nebenkosten-voraus-zahlung ein 
"bk$:inputva 

1138 printes-va 

1148 eb=es-va 

1158 if es>va then printrn4sgr$"zu 
zahlender betrag "bk$;eb; ee 
1168 if es<va then printrn$re$fa$"i 
hr guthaben betraegt "bk$;eb; "dm" 


print"abzueglich brennstoffrest 


i1178 
1188 
1198 
1288 
1218 
1228 
1238 
1248 
kostenabrechnung 
1258 'print#4 
1268 print#4," 
er dietz 1986 " 
1278 print#4, chr$( 15) 
1288 print#4,"dies ist ein programm 
zur errechnung der" 
1298 printf4, 
en miet-nebenkosten 
1382 printf4 
1318 print#4,"berechnung fuer frisc 
h-und abwasser" 
1328 print#4 


printc4$ 
printc4$ 
print"ausdruck ne 
getkeyd$ 

ifd$="n"then end 
ifd$="j"then1238 
open4,4° 

print#4,chr$( 14)" 


miet-neben 


copyright by volk 


jaehrlich 


1338 print#4,"die summe fuer abwass 
er :"a "dm" 
1348 print#4 

1358 print#4,"die summe fuer frisch 
wasser :"b "dm" 
1368 printf#4A 

1378 print#4, berechnun 


g des abwasseranteils" 
1388 print#4 
1398 print#4, 
ranteils betraegt 
14988 printf#4A 

1418 print#4,"die summe des frischw 
asseranteils betraegt:"”d "dm " 

1428 print#4 
1438 print#4, 


"die summe des abwasse 
ren cm 


"muellabfuhrkosten 
. "o”"dm” 
1448 print#4 
1458 print#4,"die bisherigen nebenk 


osten betragen :"c+d+te”dm "” 
1468 printf#4A 

1478 print#4 

1488 printf#4 

1498 printf4," berec 


hnung des hausversicherungsanteils" 
1508 print#4 
1518 printf4, -summe 


:"hv"dm" 


"vers. 


1529 print#4 
1538 print#4,"der versicherungsante 


il betraegt :"hv/hgm*wgm” 
dm " £ 
‚1548 print#4 
1558 print#4,"sonstiges 
E :"ms"dm"” 
1568 printf#4 


1578 print#4,rn$"die bisherigen neb 
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Miet -Nebenkosten 


enkosten betragen "c+d+te+ms+f" 

dm" 

1588 printf#4 

1598 printf4, 

berechnung der heizkosten" 

1688 printf#4A 

1618 print#4,"oeluebernahme vorjahr 
MuJTlIter” 

1628 printf4A 

1638 print#4,"oelneuanlieferungen 
"nl" liter” 

1648 print#4 

1658 print#4,"zwischensumme 

vjtnl"liter 

1668 print#4 

1678 printfA4, 

rest- 

1688 print#4 

1698 print#4,"tatsaechlicher verbra 

uch "vjtnl-bsr " 

liter" 

1708 print#4 

1718 printf#4, 


"abzueglich brennstoff 
e"ber”liter” 


"oelkosten 
:"g#lp” dm“ 
1728 print#4 
1738 printf#4 
1748 printf#4 


1758 print#4,"stromkosten-heizung 


"sk 
1768 printf#4A a 
1778 printf#4,"brennerservice 
"be 
’ 


1788 print#4 
1798 printf#4,"geb.f.abl.-u.abrechnu 


ng :”";ge 
1888 print#4 
1818 print#4,"gesamte oelkosten 
:"h+sk+tbe+tge 
1828 printf4 
.berech 


18390 printf4, 

nung des oelkostenanteils” 

1848 printf#4 

1858 printf4, "hausquadratmeter 

;hqm "qm" 

1860 printf4 

1878 print#4,"wohnungsgroesse 
":wgm "qm" 

1888 printf4 

1898 print#4,"festkosten betragen 


Sfr” dm“ 

1988 print#4 

'1918 print#4,"gesamte verbr.-einh 
:";ve 

1928 print#4A 

19380 print#4,"eigene verbr.-einh 
TBV 


1948 print#4 


"verbrauchsk.betragen 
"nn" dm 


1958 printf#4, 


1968 print#4 
1978 print#4,"der oelkostenanteil b 
etraegt :";ok; "dm" 
1988 print#4 
1998 print#4,"sonstige gebuehren 
»"Sdi”"dm” 

2088 print#4 
2818 print#4,"die gesamten nebenkos 
ten betragen :"es "dm" 
2829 printf4A 
2838 printf4, 
us-zahlung 
2848 printf4 
2858 if es>va then printf#4,rn$"zu z 
ahlender betrag 

"eb; "dm" 
20868 printf#A 
2878 if es<va then printf4,rn$"ihr 
guthaben betraegt 

"eb; "dm" 
2988 printf4 
28298 printf4 
2188 print#4 
2118 print#4,"copyright by volker d 
ietz 5918 bergheim 

1986" 

2128 close4 
21380 end 
2148 print"programm-beschreibung" 
2158 print"”sie geben die kubikmeter 
preise und die verbrauchten wasser 
mengen ein. 
2168 print”danach werden ihr Anz uBn 
frichwasseran- teil errechnet. 
2178 print"der versicherungsanteil 
wird durch die eingabe der gesamtw 
ohnflaeche"” 
2188 print"und der eigenen wohnungs 
groesse errech- net.” 
2198 print"zwischendurch gibt der r 
echner ihren ne-benkostenanteil aus 


"ihre nebenkosten-vora 
:"va”dm"” 


2288 print"der naechste programmpun 
kt errechnet ihren oelkostenanteil. 
2218 print"sie geben die uebernahme 
‚neuanlieferung ein.” 

2228 print"nachdem der tatsaechlich 
e verbrauch er- mittelt wurde," 
2238 print"”geben sie den literpreis 
ein und die ge-samtoelkosten werde 
n ausgegeben.” 

2248 print 

2258 print"bitte taste druecken":ge 
tkeyv$: scnclr 

2268 print"”ihr oelkostenanteil wird 
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“Met —- Nebenkosten 


2288 print"2.verbrauchskosten durch 
zes.-verbrauchseinh.und eigene 


>298 print"nun gibt der rechner ihr 
e oelkosten aus." 

2388 print"es folgt die ausgabe ihr 
es gesamtes ne- benkostenanteils." 

2318 print"jetzt erfolgt die abfrag 

e ihrer neben- kosten-vorauszahlun 

& 

2328 print"der rechner gibt nun die 
summe aus,die gezahlt oder zuruec 
kgezahlt wird." 

2338 print"zum ende muss die drucke 
rabfrage ge- klaert werden." 
2348 print"der drucker gibt die neb 
enkostenerrech- nung auf papier aus 
2358 print 

2368 print"bitte taste druecken"”:ge 
tkeyx$:scnelr 

2378 return 

2388 rem ==>======-=-=-----==- 7 
2398 rem 812277/868671 bytes memory 
2488 rem 8885254 bytes programm 
2418 rem 894923/852417 bytes free 
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EINKOMMENSTEUER 


Das Programm ist in zwölf Teile gegliedert. 

Nach dem Starten mit RUN erscheint Teil I auf dem 
Monitor. Dort werden Ihre allgemeinen Angaben be- 
handelt. 

Links von den einzelnen Fragen stehen Zahlen (die 
Zeilennummer). Durch Drücken dieser Zahl erscheint 
dann das Fragezeichen in der betreffenden Zeile. 
Nachdem Sie die Frage beantwortet haben, drücken 
Sie Return. 

So gehen Sie Frage für Frage weiter durch, bis Sie alle 
Angaben gemacht haben (Fragen, die Sie nicht be- 
treffen, brauchen Sie nicht zu beantworten). Haben 
Sie nun alle Angaben gemacht, kommen Sie, durch 
Drücken der Space-Taste, zum nächsten Teil. Verfah- 
ren Sie dort genauso wie vorher beschrieben und be- 
arbeiten Sie so Teil für Teil. 

Teil 2 behandelt Ihre Einkünfte. Haben Sie bei be- 
stimmten Einkünften Verluste gemacht, z.B. bei Ein- 
künften aus Vermietung und verpachtung, geben Sie 
die Summe als Minusbetrag (z.B. —2300) ein. 

Teil 3 — 10 behandelt Ihre Belastungen, die Sie im 
Kalenderjahr gehabt haben. Diese werden von Ihren 
Einkünften abgezogen und dienen der späteren 
Steuerberechnung. Dabei brauchen Sie nicht die vom 
Finanzamt festgesetzten Pauschbeträge oder Frei- 
beträge beachten, sie werden vom Rechner berück- 
sichtigt. Bei bestimmten Höchstgrenzen, die von 
Steuerzahler zu Steuerzahler unterschiedlich sein 
können, macht Sie der Computer darauf aufmerk- 
sam. 

Teil 5 berechnet Ihre Versicherungsleistunge, die Sie 
im Kalenderjahr gehabt haben. Entnehmen Sie bitte 
diese Beträge der Lohnsteuerkarte oder den Quit- 
tungen Ihrer Versicherungsbeiträge. Erstattungen 
und Zuschüsse ziehen Sie vor der Eingabe bitte ab. 
In Teil 11 können Sie noch einmal alle Ihre Eingaben, 
die Sie auf einen Blick sehen; überprüfen. Sollten Sie 
einen Eingabefehler bemerken, können Sie mit der 
ESC-Taste Teil für Teil zurückgehen. Sind Sie im be- 
treffenden Teil angelangt, rufen Sie die fehlerhafte 
Zeile auf (durch Drücken der bestimmten Zeilen- 
nummer) und bearbeiten Sie den Fehler. 

Sie können dann mit der Space-Taste bis zum Teil 

11 vorgehen. 


Durch erneutes Drücken der Space-Taste kommen Sie 

nun zum wichtigsten Teil des Programms, der Steuer- 

berechnung. Dort wird aufgelistet: 

. das zu versteuernde Einkommen 

. die zu zahlende Steuer 

. Ihre gezahlte Steuer 

. die Bemessungsgrundlage zur Berechnung der 
Kirchensteuer 

. Ihre gezahlte Kirchensteuer - 

. die Kirchensteuererstattung (oder Nachzahlung) 

. die Gesamtsumme, die Sie vom Finanzamt zurück- 
erhalten müßten (oder nachzahlen müßten). 


Saw PWDe 


Allgemeines zum Programm: 


Die Fragen wurden den Formularen des Finanzamtes 
entnommen. 

So können Sie Frage für Frage gemeinsam mit Formu- 
lar und Computer bearbeiten. 

Im Programm sind enthalten: Ein großer Teil der Fehl- 
beträge; die Höhe der zumutbaren außerordentlichen 
Belastungen; die Berechnung der Bemessungsgrundlage 
und vieles mehr. 

Mit der SPACE-Taste können Sie Teil für Teil vorge- 
hen — und mit der ESC-Taste können Sie im Pro- 
gramm zurückgehen. So haben Sie jederzeit einen 
Überblick über Ihre gemachten Angaben. 

Da durch ein unbeabsichtigtes Drücken der RUN/ 
STOP-Taste und ein Programmneustart mit RUN die 
gesamten Eingaben, die Sie gemacht haben, verloren- 
gehen, ist diese Taste durch den TRAP-Befehl ausge- 
schaltet. 

Dieses Programm ist auf einem normalen C16/116 ge- 
schrieben, ohne Speichererweiterung. Deshalb wurden 
bei den Teilen 3-10 (Freibeträge, Werbungskosten, 
Versicherungen, Sonderausgaben und außergewöhn- 
liche Belastungen) Integervariablen genommen. Integer- 
variablen brauchen nicht soviel Speicherplatz, haben 
aber den Nachteil, daß nur ganze Zahlen angenommen 
werden, die zwischen —32767 und +32767 liegen. 
Beachten Sie bitte, daß diese bei den einzelnen Fra- 
gen der genannten Teile (3-10) nicht überschritten 
werden. Der größte Teil der Steuerzahler wird aber 
mit dieser Begrenzung keine Schwierigkeiten haben. 
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 Sinkommenssteuer 


IB rem===========================>=> 
7@® rem einkommensteuer c16/116 
323 rem (p) commodore-welt = 
12 rem (c) 88/86 by = 
s2 rem norbert schmelzer = 
s® rem version 3.5 48z/ascii = 
78 rem===============2== === === ===> ’ 


5® trap 2628 

38 

st$=chr$( 18) +"steuerpflichtiger":eg 

5=chr$( 18) +"ehegatte" 

ı88 

sb$=chr${ 18) +chr${ 138) +"hoechstbetr 

sege beachten"+chr$( 131) +chr$( 146) 

118 scnclr 

‘28 printchr$( 18)" 

ine angaben 

138 print:print" 1 finanzamt 
";a$( 1) :print " 2 geldinstitut 


allgeme 


"-a$(2) 
148 print” 3 kontonummer a - 
$(3):print” 4 verheiratet 2a 
3$(4) 
158 print" 5 steuerklasse "„-.a 
$(5):print” 6 zusammenveranl.j/n "; 
3$( 6) 
168 print” 7 kinder _ -a 
$(?):print" 8 beamter aa 


3$( 8) 
178 geta$:ifa$=" "then238 
188 a1%=val(a$) :c%=1: ifa1%>@anda1%< 
Sthenchar1,22,a1%+c%," 
":g0to288 


198 goto178 
288 char1,22,381%+c%,"":inputa$( a1%) 


218 iflen(a$(a1%)) >16thena$( a1%) =1le 
Ft$la$la1%) , 16) +" 
228 goto11B 

238 ifleft$(la$(4) ,1)="j"andleft$la$ 
(6) ,1)<>"n"thenb=2:elseb=1 

2AB m=b:ki=valla$l7)) 

258 fori=-1tob 

268 scnclr 


278 printchr$( 18)" einkuen 
fte ":print 

288 ifi=ithenprint”" "st$:elseprint 
„ "eg$ 


298 print:print"” 1 bruttolohn 
";ek(i,1):print” 2 lohnsteuer 


";ek(i,2) 
388 print” 3 kirchensteuer "sekl 
i,3):print"” 4 versorgungsbez. ";ek 
(1,4) 


318 print" 5 eink.a.kapitalv. eRt 
i,5):print”" 6 eink.a.verm.tver.";ek 


i,7):print” B fahrzeug 
%.i,8) 

338 geta$:ifa$=-" "then41d 
348 ifa$=chr$( 27)theniT1d 
358 a1%=-valla$): ifa1%<10ra1%>8then3 
38 

368 ifa1%=8Bthenchar1,8,23,"pkw=9:mo 
torrad=4:fahrad=2":inputek%(i,B) :go 
t0o268 

378 char1,28,a1%+3," 
1,28,21%+3,"":inputek(i,a1%) 
388 ifa1%=-5thenchar1,2,28,"":input" 
werbungskosten";ka:ifka<1@@thenka>=1 
1417) 

398 ek(i,5)=ek(i,5)-ka:ka=-B:ifekli, 
5)}<®dthenek(i,5)=® 

488 goto268 

418 nexti:f1%=kKi*432:f2%=600:73%=48 
a ; 

428 ek=ek( 1,1)+ek( 1,4) +ek( 1,5) +ek( 1 
‚6)+tek( 1,7) :eh=sek( 2,1) +ek[( 2,4) +tek( 2 
‚S})+tek(2,6)+ek(2,7) 

438 ks=ek( 1,3) +ek(2,3) :ifeh=@thenb= 
1 

4aaB F2%=f2%#b: FI3X=-F3%*b 

458 f6%=-(ek( 1,4) +tek(2,4))/100*AQ: if 
f6%>4888thenf6%=4888 

468 ifek( 1,5) >688thenf?7%=688:elsef? 
%=ek( 1,5) 

478 ifek( 2,5) >6®8thenf8%=688:elsefB 
%=ek( 2,5) :f7%=f7%+rf8% 

ABD FSA=-FIKR+F2XHF3%RHfA%Hf6%+f7%:kp> 
ek( 1,5) +tek( 2,5) :vb=ek( 1,4) +tek( 2,4) 
498 scncelr 

588 printchr$( 18)" freibetrae 
ge "print 

518 print” weihnachtsfreibetrag 

; f2% 

528 print" 
;f3% 

5380 print" 
;f6%: print" 
IR 

548 print" kinderfreibetrag 
;F1%:print” 1 freibetraege-" 
558 print” z.b altersfrei - 


":char 


arbeitnehmerfreibetr." 


versorgungsfreibetr. 
freibetr.a.kapitalv. 


":print” betrag s 
f4% £ 
568 print” gesamt freibetraege 
;f5% 


578 geta$:ifa$=" "then61® 
588 ifa$=chr$( 27) then258 
598 ifa$="1"thenprint:printhb$:prin 
t :input"gesamtbetrag"”; f4%:goto488 
688 got0578 
6198 fFori=1tob: 
628 scnclr 


(i, 6) 
328 print" 7 sons.einkuenfte ";ekf( 638 printchr$( 18)" 
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werbu 2 


EFEFinkommensstesuer 


ngskosten "print 
648 ifi=ithenprint" "st$:elseprint 
- "ee$ 


658 print:print" fahrten zur arbe 


itsstelle = 

6668 print” 8 arbeitstage 
":w%Ci,®) a 

678 print” 1 
"-w%(i,1) 

688 print" 2 

el ";w%[i,2) 

698 print” 3 v- 

et ";w%[i,3) 

788 print” 4 

nde";w%[ i,4) 

718 print" 5 

tel";w%(i,5) 

728 print” 

738 print” 

748 print” 6 
".u%Ci,6) 

758 print" 7? 

it ";w%(1,7) 

768 print" 8 

tet”";w%(i,8B) 

778 print” 9 sonstige werbungskoste 

n "w%li,9) 

7BB w3%=ek%li,8)*9.04#w%li,0) *w%li, 

1) 

796 wa%li)=w%li,6) #3:w5% i) =w%li,7) 

*5 

898 w1%Ci,1) =w3%+w%l 1,2) -w%li,3) +w% 

(1,4) +w%( 1,5) +w4%l i) +w5%li)-w%li,8) 

+w%li, 9) 

818 char1,8,22,"gesamt werbungskost 

en":char1,38,22,str$(w1%(i,1)) 

829 getkeya$:ifa$=" "then988 

838 ifa$=chr$( 27) then4B8 

848 a1%=valla$) 

850 c%=5 

868 ifa1%>Sthenc%=7 

878 ifa1%=60ra1%=7thenchar1,1,28,ch 

r$( 18) +chr$( 138) +"anzahl der tage"”+ 

chr${ 131) +chr$( 146) 

888 char1,27,a1%+c%," 

‚27,31%+c%,"":inputw%(i,a1%) 

898 got0628 

988 nexti 

918 ifw1%C 1,1) <564thenw1%( 1,1) =564 

928 ifb=2andw1%( 2,1) <564thenw1%l 2,1 

)=564 en 

938 wB=w1%C1,1)+w1%C02,1) 

948 char1,8,23,"werbungskosten ges 

mt":char1,380,23,str$(w8) 

9508 geta$:ifag<>"” "then958 

968 fori=-itob 

978 scenclr 

988 printchr$( 18)" 


entfernung 
oeffentl. verkehrsmitt 
arbeitgeber erstatt 
beitr. f. berufsverbae 
aufwend. f. arbeitsmit 


mehraufwendungen fuer" 
verpflegung bei ueber" 
zwoelf stunden 

zehn stunden abwesenhe 


vom arbeitgeber erstat 


"-chari 


versi 


cherungen ":print 

998 ifi=1thenprintst$:elseprinteg$ 
1888 print” arbeitnehmeranteil 
1818 print” 1 sozialversicherungen 
"-ve%li,?) 

10828 print" arbeitgeberanteil 
1838 print” 2 rentenversicherung 
"-ve%li,2) 
1848 print" 
“print” 

%( 3) 

1858 print" 
"‚;y%[4) :print" 
";v%(5) 

1868 print" 6 lebensversicherung 
":,%(6) :print" 7 haftpflichtversich 
";v%[7) 
1978 print" 
1888 print” 


3 arbeiterrenten-hoeher 
versicherungen ei, 


A krankenversicherung 
5 unfallversicherung 


8 beitraege z.bauspar-" 
kassen die als sonder 


1898 print" " ausgaben gelten 


"-u%(B) 

11080 geta$:ifa$=" "t:hen1288 

11198 ifa$=chr$(27)then 618 

1128 a1%=valla$) :ifa1%=8then 1188 
1138 ifa1%>8then 1198 

1148 ifa1%=1thenc%=3:elsec%=4 
1158 ifa1%>2thenc%=5 ö 

1168 ifa1%=-Bthenc%-=? 

1178 ifa1%<3thenchar1,22,31%+c%," 


".char1,22,31%+c%,"":inputve 
%Li,a1%) :goto97B 
1180 char1,2,28,chr$( 18) +"zuschuess 
e und erstattungen abziehen"+chr$f 1 
46) 
1198 char1,22,31%+c%," "ich 
ar1,22,21%+c%,"":inputv%(a1%) :goto9 
78 
1288 vg=ve%l 1,1)+ve%l2,1)+v%L3) +v%l 
4) +v%l 5) +v%( 6) +v%07) +v%[8) 
1218 next 
1228 v=ve%l 1,2)+ve%( 2,2) :ifv>3008*m 
thenv=39808*m 
1238 ifbea=1thenmf=( ek+teh) /108*9:el 
semf=-8 
1248 v1=( 3888*m) -v-mf:v2=vg-v%[ 8) -v 
1:ifv2<@dthenv2=8 
1258 v3=v2+v%( 8) : v4A=m#2348+( ki*60B) 


".y5=v3-vA4:ifv5S<ßBthenv5=B 


1268 v6=-v5/2:v7=v4/2:ifvg>vthenvd=v 
:elsevd=vg . 
1278 ifv3>v4thenv9=v4:elsev9=v3 
1288 ifv6>v7thenvv=v?:elsevv=v6 
1298 vr=int( vv+vB+v9) :ifvg<vrthenvr 
=vg 

1388 ifvr<m#388thenvr=m*388 

1318 print:print" versicherungen 


gesamt=";vg 


 Einkommenssteuvuer 


1328 print" abzugsfaehig 

="- vr 

1338 geta$:ifa$=" "then135® 

1348 ifa$<>chr$( 27) then1338:else618 
1358 scnelr 

368 printchr$( 18)" sond 
srausgaben ":print 
«378 ifb=1thenprint:printst$:elsepr 
int:printst$;"+";eg$ 

1388 print:print” 1 renten 

":sa%[ 1):print" 2 dauernde lasten 
”"-sa%( 2) 

1398 print” 3 unterhaltsleist.";sa% 
f3) :print"” kirchensteuer ":ka 
488 print" :.4 steuerber.kosten";sa% 
(4) :print”" 5 aufwendungen f." 
418 print" die ausbildung in 
rint”"” nicht ausgeuebt."” 
428 print" beruf 

5}: print” 6 spenden gesamt 
:sa%( 6) 
1438 print" 7 sonstiges ":sa% 
[7}) :print 
1448 geta$:ifa$=-" "then1548 
1458 ifa$=chr$( 27) then968 
1468 a1%=valla$) :ifa1%<1orai%>7then 
1448 
1478 


":sa% 


printhb$ 

1488 ifa1%=6then14998:else1518 

1498 print(ek+teh-w5) /198*5;"bei mil 
dtaetigen":print(ek+teh-w5) /188*18;" 
bei wissenschaftlichen" 


1588 printm*#688;"dm bei parteien"” 
1518 c%=4:ifa1%>3thenc*%=5 

1528 ifa1%>4thenc%=8 

1538 char1,28,a1%+c%," “:char 


1,20,a1%+c%, "":inputsa%( a1%) :goto13 


58 

1548 sa=sa%l 1)+sa%[ 2) +sa%l 3) +sa%l 4) 

+5a%l 5) +sa%[ 6) +sa%( 7) +ks 

1558 ifsa<m*278thensa=m*#278 

1568 print" sonderausgaben gesamt 
"-sa:print" mit versicherungen 

gesamt";sa+tvr 

1578 getkeya$:ifa$<>" "then157® 

1588 ifa$=chr$( 27) then968 

1598 scnelr 

1688 printchr$( 18)". aussergewo 

ehnliche belastungen “:print 

1618 ifb=2thenprintst$"+"eg$:elsepr 

intst$ 

1628 print:print"” 1 freibetrag fuer 

bes.":print"” faelle 

"-ab%[ 1) 

1638 print” 2 freibetrag f.unter- 

eprint" h.verpfl.gegenueber" 

1648 print" kindern 

;ab%( 2) :print” 3 unterstuetzung be- 


1658 print” duerftiger personen 


:print"” gesamt "-ab% 
(3) 2 

1668 print” 4 ausbildungsfreib.":pr 
ine” gesamt ":35%( 4) 


1678 print” 5 kinderbetreuungsk.":p 
rint"” f.alleinstehende "-ab%[5 
) 
1688 print” 6 andere aussergew." 
1698 print” belastungen 
ab%( 6) :print" 7 sonst.freibetraege 
"ab%[ 7) 
1788 getkeya$:ifa$=" "then1818 
1718 ifa$=chr$( 27)then1358 
17208 a1%=valla$) :ifa1l%<1ora1%>7then 
1788 
1738 
1748 
1758 
1768 
1778 
1788 


ifal%<8thenc%=11 
ifa1%=-5thenc%=18 
ifa1%=4thenc%= 9 
ifa1%=3thenc%=8B 
ifa1%=-2thenc%=6 
ifa1l%=1thenc%=4 

1798 ifa1%<>6thenprint:printhb$ 
1888 char1,22,a1%+c%," "cha 
r1,22,31%+c%,"":inputab%( a1%) :goto1 
598 

1818 n=ek+teh-sa-w8-f5% 


1828 ifn<=389888thenp=-5:elsep=6 
1838 ifn>188888thenp=?7 

1848 ifm=-2orki>®thenp=p-1 

1858 ifki=8then1888 


1868 p=p-2 

1878 ifki>2then p=p-2:ifn<=38888the 
np=p+1 

1888 n=int((n/188)*p) :ifab%[ 6) =@the 
n19988 

1898 ifab%( 6) >=nthenaj=ab%( 6) -n:els 
eaj-d 

1908 ab=-ab%( 1) +ab%[ 2) +ab%[ 3) +ab%[ 4) 
+ab%( 5) +aj+ab%( 7) :ifab%[ 6) =Bthenab= 


ab-aj 

1918 print:print” a.belastung.gesa 
mt";ab 

1928 ifab%( 6) -Bthen 1968 

1938 print” ausgaben der zeile 6 " 
1948 print" wurden um den zumutbar 
en” n 

1958 print" betrag von";n;"gekuerz 
Er 

1968 getkeya$:ifa$=" "then198® 

1978 ifa$=chr$( 27) then 1598 

1988 ev=-ek( 1,6) +ek( 2,6) :sd=ek( 1,7) + 
ek(2,7) 


1998 scnelr 

2888 printchr$( 18)" 
en blick 

2818 print:print"” 


alles auf ein 


99 


bruttolohn stpf 2» 


Finkommensste suer 


"-ek( 1,1); "dm" 
2828 print" bruttolohn eheg 
‚ek(2,1); "dm" 


2838 print” lohnsteuer stpf 
;ek( 1,2) ; "dm" = 
2848 print” lohnsteuer eheg 


‚ek( 2,2) ; "dm" 
2858 print" 
‚ek( 1,3) ; "dm" 
2868 print” kirchensteuer eheg 
‚ek( 2,3) ; "dm" z 
2878 print” freibetraege 

#5%; "dm" 

2888 print" 
;w1%0 1,1); "dm" 
2898 print” 
‚w1%[2,1); "dm" 


kirchensteuer stpf 


werbungskosten stpf 


werbungskosten eheg 


2188 print” versicherungen 
;vr;”dm"” 
2118 print" sonderausgaben = 


‚sa; "dm" 
2128 print” 
;ab; "dm" :print"” 
=; *";vb;"dm” 
2138 print” 
;kp; "dm" :print" 
nn. "sen; "dm" 
2148 print" 
;sd; "dm" 
2158 x=ek+teh-( f5%+w8+vr+satab) 

2368. Brink ee 


2178 print” zu versteuerndes einkom 
men" ;x; "dm" =x:1s=ek( 1,2)+ek( 2,2) 
2188 getkeya$:ifa$=" "then2288 

2198 ifa$=chr$( 27) then 1598 

2298 ifm=-2thenx=x/2:ta$="splittingt 
abelle ".elseta$="grundtabelle 


aussergew.belast. 
ges.versorgungsbe 


ges.eink.kapitalver.” 
ges.eink.verm.+tver 


ges.sons.einkuenfte 


2218 gosub253®8 

2228 scnelr 

2238 bm=®:printchr$( 18)" 

steuerberechnung 

2248 print:print"zu versteuerndes e 

inkommen ,"Sc"dm" 

2258 ifm=-2thenes=es*#2 

2268 print"die zu zahlende steuer n 

‚ ach "” 
2278 

2288 


print”der "ta$"” :"es; "dm" 
print"ihre gezahlte steuer 
:";ek('1,2) +tek(l 2,2) "dm" 


fuer" 

2358 print”"die kirchensteuer betrae 

gt bei” 

2368 printki;"” 

:"bm; "dm" 

print"ihre gezahlte kirchenste 

uer :"ks”dm" 

2388 ifks<kgthenb$="nachzahlung 
:";selseb$="erstattung Se 

2398 ki=ks-kg:k2=kKl:ifks<kgthenk 1=k 

g-ks 

2488 


kind(er) 


2378 


print"kirchensteuer"b$;k1; "dm" 
2418 ifls+ki<estthen2478 

2428 print:print"sie erhalten vom f 
inanzamt” 

2438 printa$( 1)” das guthaben von 
;‚is-es+k2;"dm " 

2448 print"zur ";a$(2) 

2458 print"auf das konto ";a$(3);" 
ueberwiesen"” 

2468 goto2588 

2478 print:print"sie muessen dem fi 
nanzamt” 

2488 printa$( 1)" den betrag von";es 
-1s-k2; "dm" 

2498 print"ueberweisen" 
2588 print:print” 
rechnung j/n" 

2518 poke239,8:getkeya$:ifa$="j"the 
nrun 

2528 ifa$=chr$( 27) then1998:elseend 
2538 x=int( x/54) *#54:ifx<4212thenes= 
®:return 

2548 ifx<18888thenes=int( 22*x/188)- 
926:return 

2558 ifx<=-59999theny=x-18B888: f=int( 
3050*y/ 18098) -73768:f=intl f*y/ 10988 
) +6959088 

2568 ifx<=59999thenf=int( F*y/ 180902) 
+2200898:f=int( f*y/ 10000) +3034000@:e 
s=int( f/1988) 

2578 ifx<=-59999thenreturn 

2588 ifx<=129999thenz=x-60B88:f=int 
( 98*z/ 10008) -5450: f=int( f*z/ 19000) + 
88138 

2598 ifx<=129999thenf=int( f*z/ 18088 
) +5949998:f=int( f*z/ 19998) +20818088 


noch eine be 


. 2698 ifx<=-129999thenes=-int( f/198B): 


return 
2618 es=-int(56*x/188) -14837:return 
2628 ifer=38thenresumenext 


2298 ifki=1thenbm=688 ® is : 
2388 ifki=2thenbm=1568 2638 senclr:printerr$(er)"error in 
2318 ifki>=3thenbm=1569+( 1888*( ki-2 el:help : 
)) 2648 rem eıko-steuer >>> 
2328 ifes<bmthenkg=-®:g0t023408 2658 rem ende == 
2348 print"die bemessungsgrundlage 
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BALKENGRAFIK 


“ıt diesem Programm können Sie Wahlen, Einnahmen, 
susgaben, demoskopische Untersuchungen und ande- 
=s grafisch darstellen. 

se haben die Möglichkeit, zwischen zwei verschiede- 
ven Grafiken zu wählen, die dann mehrfarbig gezeigt 
werden. 

Anschließend wird Ihnen der Höchstbetrag, der Min- 
Zestbetrag und der Durchschnittsbetrag aufgelistet. 
S= können, während die Grafik gezeigt wird, immer 
wıder neue Ergebnisse eintragen, die sofort in der 
srafik aufgenommen werden. Die Grafik kann einge- 
sden oder abgespeichert werden. Das Programm be- 
mhaltet auch eine Grafik-Demo über den Ausgang 

<er Niedersachsenwahl vom Juni ’86. 


"rogrammbedienung: 


Nach dem Eintippen starten Sie das Programm mit 
RUN. Zuerst erscheint auf dem Monitor eine Anlei- 
zung. Anschließend werden Sie gefragt, ob Sie eine 
Demo sehen wollen. Drücken Sie ‘J‘ (für ja). Der 
Computer zeigt Ihnen dann auf dem Monitor eine 
mehrfarbige Grafik über den Ausgang der Niedersach- 
senwahl 1986. Links oben auf dem Monitor erscheint 
dann, revers dargestellt, das Wort Demo. Durch Drük- 
xen der SPACE-Taste stellt Ihnen der Computer die 
Frage nach einen anderen Grafikmodus. Wenn Sie die 
Frage mit ‘J‘ beantworten, zeigt Ihnen der Rechner 
einen anderen Grafikmodus, die Querbalkengrafik. 
Sollten Sie die Frage mit ‘N‘ (für Nein) beantworten, 
beginnt das eigentliche Programm. Als erstes werden 
Sie gefragt, ob Sie eine Grafik einladen möchten. 
Tippen Sie J, so werden Sie aufgefordert, die Kasset- - 
te mit der abgespeicherten Grafik zurückzuspulen, 
oder den Anfang vom Einleseteil zu suchen. Wenn Sie 
die Kassette vorbereitet haben, tippen Sie den 
Filenamen ein. Nach Drücken der PLAY-Taste Ihrer 
Datasette lädt sich die Grafik ein und wird kurz dar- 
auf dargestellt. } 4 

Sollten Sie die Frage nach dem Einladen mit N beant- 
worten, dann kommen Sie zum Eingabemodus. Zu- 
erst wird die Überschrift gestaltet. Ihre Eingaben bil- 
den in der Grafik die Überschrift. Drücken Sie jedes- 
mal RETURN. Danach haben Sie die Möglichkeit, die 


einzelnen Bezeichnungen, die der Erläuterung der 
einzelnen Balken dienen, vom Computer vorgegeben 
zu bekommen. Öfters wiederkehrende Bezeichnun- 
gen wie die Wochentage (MON DIE MIT ...) oder 
Monate (JAN FEB ...) oder die Parteien (CDU 

SPD ...) brauchen Sie deshalb nicht immer wieder 
neu einzutippen. Sollten Sie andere Bezeichnungen 
wünschen, müssen Sie die Menge der Bezeichnungen 
eingeben (nicht über 15). Jetzt geben Sie nachein- 
ander die Bezeichnungen ein. Sie werden in der 
Grafik auf vier Stellen abgekürzt. Haben Sie diese 
Eingaben beendet, geben Sie die Werteinheit ein 
(z.B. DM, %, cm). Nach dem Drücken der RETURN’- 
Taste beginnt die Eingabe der Wertangaben. Wenn 
Sie diesen Teil hinter sich haben, startet die Grafik. 
Jeder einzelne Balken wird in einer anderen Farbe 
dargestellt. Die Werte werden oberhalb der Balken 
angezeigt, wobei der jeweils höchste Betrag blin- 
kend dargestellt wird. Unterhalb der Balken erschei- 
nen die jeweiligen Bezeichnungen. Wenn Sie die 
Grafik in einemanderen Modus sehen wollen, drük- 
ken Sie SPACE — und beantworten Sie die Frage 
nach dem Moduswechsel mit J (Ja). Drücken Sie 

N (Nein) so werden der Gesamt-,der Höchst, der 
Mindest- und der Durchschnittsbetrag aufgelistet. 


Weiterhin werden Sie nach neuen Ergebnissen gefragt. 


Nach dem Tippen der J-Taste geben Sie die Bezeich- 
nung ein, drücken die RETURN-Taste und geben das 
neue Ergebnis ein, sofort wird es mit in der Grafik 
verwendet. 

Wenn Sie die Frage nach neuen Ergebnissen mit 

N (Nein) beantworten, können Sie die Grafik abspei- 
chern. Legen Sie eine passende Kassette ein und tip- 
pen den passenden Filenamen ein. Die Grafik wird 
nun abgespeichert und kann immer wieder eingela- 
den werden. So können Sie sich einen Vorrat an Gra- 
fiken aller Art zulegen. 

Zu beachten wäre noch, daß das Programm nicht mit 
der RUN/STOP-Taste abgebrochen werden kann. 
Durch ein unbeabsichtigtes Drücken dieser Taste 

und einem Programmneustart mit RUN werden alle 
Werte, die bisher eingegeben worden sind, gelöscht. 
Da das sehr ärgerlich ist, wird diese Taste durch den 
TRAP-Befehl ausgeschaltet. 
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28 rem balkengrafik = 
38 rem{p) commodore-welt c16/116 = 
AB rem = 
58 rem 
68 rem = 
78 rem (c)norbert schmelzer = 
88 rem 8/1986 weeze = 
98 rem fuer c=16/116 basic v 3,5= 
189 ABz ascii — 
118 


128 
138 
148 
158 
168 


bei open-befehle <print> 

bitte ausschreiben 
bei langen zeilen 

rem* print als ’?’ schreiben 

remttrerereneneegeEEeNE 

178 ba=5:v=1:vol8:a1$="wahlen-niede 

rsachsen ":a2$="1986":34$="%":d=1 

188 senclr:color®,2,5:color4,2,5:c0 

lor1,198 remt#zxrse#er#22t j te 1#** 

298 printtab( 15) "balkengrafik” 

238 printtabtl 15)" -7777 77222 ae 

228 print” dieses programm erstellt 

balken-" 

2380 print" grafiken.sie koennen all 

es was sie" 

2A® print” eingeben,als grafik ansc 

haulich sehen." 

258 print" so werden z.b.wahlergebn 

isse,ein-" 

268 print" nahmen oder sonstiges gr 

afisch dar-" 

278 print" gestellt.nach erstellen 

der grafik," 

288 print" koennen sie neue ergebni 

sse eintragen." 


298 print” sie koennen zwischen zwe 
3 
388 print” verschiedenen grafiken w 


aehlen." 

318 print" beachten sie aber dass,b 
ei ueber sieben" 

328 print" bezeichnungen oder betra 
ege ueber 5808" 

338 print" -wegen der besseren uebe 
rsicht-" 

348 print" nur die querbalkengrafik 
moeglich ist." 

358 print” achten sie auch bitte da 
rauf,dass " 

368 print” die betraege nicht zu we 
it auseinander-" 

378 print" liegen (z.b.10,23,43,65, 
5080,23,45)" 

388 print" druecken sie-wenn nichts 
anderes " 


' 688 


398 print" angegeben ist-immer <ret 

urn>" 

488 color1,2,7 

418 print:print" wollen sie eine de 

mo sehen j/n" 

428 getkeyg$:ifg$=-"j"thenrestore22B 

a: gosub2278:goto1058 

4380 ifg$<>"n"then428:elserund44B 

A448 trap2619@:rem#**run/stop ausschal 
tung* 

A5® rem*und verzweigung zur fehlerr 
ouine 

468 pp=3:v=1:dima3$( 15) :dimk( 15) :di 

mb$( 15) :dimk 1( 15) :dimk2( 15) :d=1 

478 goto2548 

488 scenclr:color1,!1 

498 printtab( 15) "eingaben" 

598 print" bitte geben sie keine mi 
nusbetraege" { 

518 print" ein.sie koenne die betr 
ege in der " 

528 print” ueberschrift als solches 
ausweisen" 

538 color1,2,7 ; 

548 input” was soll dargestellt wer 

den" ;a1$:ifa1$=""then548 

558 input” kommentar z.b. 
:ifa2$=""then55® 

568 senclr:color1,!1 

578 print” bezeichnung der einzelne 

n daten” 


1986" ;a2$ 


588 print" z.b.bei parteien cdu ode 
r spd"” 

598 print" bei ein-oder ausgaben wo 
chentage"” 


682 print" 
.b.montag.. 
618 print" 


oder monate oder jahre z 


.r 


oder januar...oder 1988. 


628 print" nicht ueber 15 bezeichnu 
ngen” 
638 print“ 


ngen durch 


wollen sie die bezeichnu 


648 print" den computer vorgegeben 
haben" 
658 color1,2,7 


668 
678 


printtab( 15)"j/n" 
getkeyg$:ifg$="j"then 788 
ifg$="n"then?98 

goto678 

788 scncelr:color1,1 

718 print" druecken sie bei wochent 
age=w" 

728 print" bei 
n=p" 

738 print" bei 
aben kommen" 
748 print” sie 


698 


monate=m.bei parteie 
einem anderen buchst 


wieder zurueck zum e 
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ingabemodus" 

758 getkeyq$:ifg$="m"thenrestore222 
®:gosub2218:be=12:goto8B6d 

758 ifg$="w"thenrestore2248:gosub22 
3@:be=7:goto 868 


778 ifgq$="p"thenrestore2258:gosub22. 


5ß:be=-5:goto B68 

788 color1,2,7 

798 input” wieviel bezeichnungen”;b 
e:ifbe<=@then?798 E 

588 ifbe>15thencolor1,7,3:print”nic 
At ueber 15 bezeichnungen":goto?88 
818 scnelr:ba=be:fora=vtobe:colori, 
1 

328 printa;".bezeichnung" 
‚7:inputa3$l(a) 


„scolor ti, 


838 ifa3$la)=""then828 

848 a3$( a) =1left$l a3$l a) ,A) 

858 next 

868 scnelr:color1,1 

878 print" geben sie jetzt bitte di 
e ” 

888 print” -bei wahlen-ergebnisse e 
in” 

898 print" -bei finanziellen darste 
llungen" 

988 print" -die betraege ein" :a4$=" 
":print 


918 color1,2,7 

928 input” einheit z.b.dm ; $ ; 
34$:ba=be:34$=1left$( a4$,2) 

938 ifa4$=""then928 

948 scenclr:colori,1:fr=4 

958 print" bitte keine minusbetraeg 
e eingeben" 

968 print” ungerade betraege werden 
bei der ":print” darstellung auf-o 
der abgerundet” 

978 k2=9:fora=vtobe 

988 char1,3,fr,str$(a)+".eingabe "+ 


%"3 


chr${ 18) +#83$( a) +chr$( 146) :kla)=-1:i 


nputkl(a) 

998 ifkla) <@then988 

1888 chari,3,fr, 

1818 ifkla)>99999thensencelr:print" 
bitte nicht ueber 99999 ":goto98B8 
1828 nexta:hn=k{ 1) 

1838 rem**hoechstes und niedrigstes 
ee 


18408 rem** 
1858 hi=®:hn=k( 1) :k2=8B:fors=1itoba:i 
fk(s)>hithenhi=k(s) :a5$=a3$( s) 

1868 kK2=k2+k(s) 

1878 ifk(s)<= =hnthenhn= kls) :a6$=a3$( 
s) 

1888 nexts:fr=24 


berechnen 


1898 s$="dasistdiemasseinheitfuerdi 
Ebsrachnungserbalkemiingrammnnthägh 
st."”:gosub2868 
11829 g1$-chr$( 18) +chr$( 163) +chr$( 16 
3) +chr$( 163) +chr$( 163) +chr$( 146) 
1118 g2$=chr$( 18) +chr$( 183) +chr$( 18 
3) +chr$( 183) +chr$( 183) +chr$( 146) 
1128 g3$=chr$( 18) +chr$( 184) +chr$( 18 
4) +chr$( 184) +chr$( 184) +chr$( 146) 
1138 g4$=chr$( 164) +chr$( 164) +chr${ 1 
64) +chr$( 164) 
1148 g58$=chr$( 18) +Ghr${ 169) +chr$( 32 
}+chr&t 32) +chr$( 127) +chr${( 146) 
1158 g6$=chr$t{ 18) +chr$({ 169) +chr$t 12 
7)+chr$( 146) 
1168 xx=5:color®,1:color4,6,3:color 
1,2,9 
1178 
1188 
1198 
1288 


ifhi>5888thend=2 
‚ifba>?7thend=2 

ondgoto1288, 1488 
z=15:z1=3:z2=16:z3=1:z4=18B 
1218 senelr:char1,5,1,chr$( 18) :prin 
ta1$;" ";a2$;chr$( 146) :x=8:x=x-ba 
12208 g=1:fora=1toba:g=g+t1i:ifg=-4then 
g=6 
1238 
1248 


z=-15:soundi,a*#88,3 

a3$l a) =-1left$( a3$l a) ,4) 

1258 foraa=itolen(b$(a)) :colori,g,?7 
1268 ifhi>3Bandk( a) <=Bthena$="":z=z 
+1:g0t01298 

1278 a$=chr$( 18) +chr$( 99) +chr$( 99) + 
chr${ 99) +chr$( 99) +chr$( 146) 

1288 ifkla) <=@thena$="" 

1298 chari,x,2,a$:z=z-1:ifz<Athenz= 
4 
1308 
1318 
1328 
1338 
1348 
en*#** 
13598 


fortt=1t06®8:nexttt 
color1,2,7:chari,x,z2,a3$(a) 
nextaa 

colori,g,7? 
rem***minimaldifferenz berechn 


ifk2(a)<=.99999thenchar1,x,z,g 
ifk2[(a)<=.69999thenchar1,x,z,g 
ifk2(a)<=.49999thenchari,x,z,g 
ifk2(a) <=.29999thenchar1l,x,z,g 
ifz=-4thenchar1,x,5,85$:charl,x 
"+g6$+" Li} 

color1,2,7 
ifa3$( a) <>a5$then 1458 

1428 char1,x-1,z-1,chr$( 138)+"” ":pr 
intusing"##44";(kla)); :printchr$( 13 
1) 


1438 chari,x-1,z-1,chr$( 138) +” 
intusing"##A#”; (Kal); 
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1448 x=x+xx:g0t01478 
1458 ifk(a)<=®thenchari,x,z,"” e 
1468 chari,x-1,z-1,”" ":printusing”# 


HHH“;kla) :x=xtxx 

1478 nexta:gosub1699:got0o97B 

1488 scenclr:char1,5,®8,chr$( 18) +chr$ 
(5) :printa1$;" ";a2$;chr$( 146) :z=17 
:z=z-ba 

1498 g=-1:fora=1toba:c$="":a$=chr$t 1 
62) :c2$=chr$( 187) 

1508 g=g+1:ifg=-4theng=6 

ıSı9 ifg>16theng=2 

1528 color1i1,g,7:sound1,a*58,3 

1538 foraa=1tolen(b$(a)) 

1548 c$=c$+a$ 

nextaa 

c$=left$(c$,26) 

c1$=c$ 
char1,4,z, 
char1,8,z,a3$(a) 
ifkla) <=dthenc$=" 
char1,4,z,c$ 
ifa3$( a) <>aS$then 1648 
char1,31,z,chr$( 138) :printusin 
kla);:printa4$;chr$( 131) 


"-elsec$=c1$ 


1639 
gTHHHHR BR”; 
:g0ot01658 
16498 char1,31,z,"" 
.#";kla) ;:printa4$ 
1658 rem#***differenz berechnen*** 
1668 ifk2(a)>=.5thenchar1i,4+len(c$) 
‚„z,c2$ 

1678 z=z+1:nexta 

1688 gosub 1698 :g0t0978 

1698 ifpp<3thenchar1,1,3,chr${ 31) +c 
hr$( 18) +"demo"+chr$( 146) 

1708 getkeyq$:ifg$=" "then1748 

1718 char1,15,18 ‚chr$( 18)+"space"+c 
hr$( 146) 

1728 fora=1t02888:next:charl, 

1738 
1748 


:printusing "HHHHH 


15,18, 


goto 1788 

ifba>?7then 1838 

1758 ifhi>9999then 1838 

1768 color1,8,5:char1,1,1B, 

grafikmodus j/n" 

1778 getkeyq$:ifgq$="n"then1838 

1788 ifq$<>"j"then1778:elsepp=pp+1: 

goto1798 

1798 ifpp=2thenrun44B 

1888 ifd=ithend=2:goto117®8 

1818 ifd=2thend=1:g0t01178 

1828 fora=1t03888:next:goto1178 

1838 ifpp<3thenrun44d 

1848 color1,2,7 

1858 char1,8,28,"hoechstes ergebnis 
":printusing "HHHHHH 44” ;hi;:print 


"anderen 


aa$;" FT. ";a5$ 

1868 char1,8,19, using 
"printusing "AHHHHHHR. #4” ;k2; :print 

a4$ 

1678 char1,8,21,"niedrigstes ergebn 

is":printusing "HHHHHH HH"; hn;:print 

ad$;" F. ";5a6$ 

1888 char1,98,22,"durchschnitt 
"-printusing "AHAHHH HH" ;kK2/ba;:pr 

inta4$ 

1898 ifa4$="%"andk2>188thenchar1,13 

‚2,chr$( 18) +chr$(31)+"gesamt ueber 

1898%"+chr$( 146) 

1988 char1,1,23, 

n" 

1918 getkeyq$:ifg$="n"then1998 

1928 char1,1,23,"bezeichnung 
":inputa3$ :33$=1left$( a3$,4) 

1938 rem**suche nach eingabe** 

1948 fora=1toba 

1950 ifa3$=1left$la3$la) ,‚4)thenv=a:b 

e=v:k2=9:hi=®:hn=9:a5$="":a6$="":re 

turn 

1968 

1978 


"neue ergebnisse j/ 


next 
char1,1,23, 


1988 
1998 
lung 
2808 getkeyq$:ifg$=" 
2818 scnclr:print” 
rafik speichern j/n"” 
2828 getkeyq$:ifg$=- 
2838 scenclr:print" 
iter!! n=ende"” 
2B8A4B getkeyg$:ifg$= 
und44d 
2858 
2068 
2978 
2989 
2998 
14) 
2188 
2118 
2128 
2138 
2148 
2158 
bel** 
2168 rem#**festlegen 
*: 
2178 
2188 
2198 
2208 
2218 
turn 


goto 1908 
char1,1,23, 
3/n" 


eine neue darstel 


j"then1798 
ee sie die g 


ss I thengosub245@ 
alles klar j>we 


"n"thenend:elser 


ondgoto1288, 1488 

fors=itoba 

rem**hoechste eingabe als ** 
rem#**masseinheit Fr 
ifhi<=99999thenk1{s)=k(s)/ 188 


ifhi<=39999thenki{ s)=k[s) / 588 
ifhi<=59888thenk1( s)=k( s) /258 
ifhi<=999thenk1(s)=k[s)/ 58 
ifhi<=188thenk1( s)=k(s)/1® 
ifhi<=3@8thenk1(s)=k(s) 
rem**hoehe‘ der balken in varia 


b$( s)=left$(s$,k1(s)) 
k2(s)=ki(s)-int(ki(s)) 

nexts 

return 
fora=1to12:reada3$( a) :nexta:re 
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2228 datajan,feb,mae,apr,mai, jun, ju 
l,aug,sep,okt,nov, des 
2238 fora=1t07: roadasshal: nexta:ret 
urn 
2248 datamon,die,mit,don,fre,sam,so 
n R 
2258 fora=1t05:reada3$( a) :nexta:ret 
urn 

2268 datacdu,spd,fdp,gru,son 

2278 fora=1t0o5:reada3$(a),kla) :next 
:return 

2288 datacdu,44,spd,42,gruene,?,fdp 
‚6&,sonstige,@8.5 
2298 color1,1 

2388 scnelr:print"” 
urueckspulen" 

231@ print" oder anfang vom einlese 
teil suchen" 

2328 char1,1,12,"":input” welcher f 
ilename"; fa$:iffa$=""then2298 

2338 iflen( fa$)>16thenprint"” filena 
me zu lang (kleiner als 16)buchst."” 
:else2368 

2348 fFora=1t02888:next:goto2298 
2358 rem**grafik laden** 

2368 open1,1,8,fa$ 

2378 input#1,ba 

2388 input#i,d 

2398 fora=1toba:input#1,kla):next 
2488 input#1,31$:input#1,a2$ 

2418 input#1,34$ 

2428 fora=1toba:inputf#1, as$la): next 
2438 close1:goto1858 

2448 rem#*grafik speichern** 

2458 char1,2,15,"":input” welcher f 
ilename" ‚Fa$: iffa$=""then2458 

2468 iflen( fa$) >16thenprint" filena 
me zu lang (kleiner als 16 buchst. 
:g0t02458 


bitte kassette z 


2478 trap2618:open1,1,1,fa$ 

2488 print#1,ba 

2498 print#1,d 

2508 fora=itoba:print#1,kla) :next 

2518 print#1,a1$:print#1,32$ 

2528 print#1,a4$ 

2538 fora=1toba:print#1,a3$(a) :next 
:closeil:return 

2548 scnelr:color1,1:color®,2,5:col 

or4,2,5 b 

2558 char1,1®8,2,"alte grafik einlad 

en" 


2568 color1,2,7 

2578 char1,28,4,"j/n" 

2588 getkeyq$:ifg$="j"thengosub2298 
:goto1178 

2598 ifgq$="n"then488:elsegoto2588 
2608 rem#t##t#tttfehlerroutine##F##t#** 
22 


2618 ifer=-3@thenresumenext 
2628 senclr:printerr$(er); 


";el:help:end 
en Eee 2 BT oe De 


"error in 


Hr 


2648 rem#* 12277 bytes memory 
ur 


2658 rem*#* 
“+ 


2668 rem*#* 
+: 


2678 rem** 
2. 
26808 rem HR 


KERN 


BÖRSE 


Top Grafiken für Plus/4: z.B. 
Amiga-Paint - de Luxe Grafi- 
ken auf Ihrem Plus/4!!! Für 
- nur DM 15,- (in bar) erhalten 
Sie diese Grafiken + Hardco- 
py auf Disk! Einsenden an: 
M. Beckmann, Haselweg 1, 
8028 Taufkirchen. 
“Bildschirmtext-Simulations- _— = 
spiel für C 64. Ich entwickle Verb, Drucker MPS 803 (für 
Software. Für diese neue. Art C 64, Plus/4, C16 Lg) grafik- 
des Simulationsspiels bitteich fähig für nur DM 250,- mit 
um Resonanz von Gleichge- Garantie! Rufen Sie an oder 
sinnten, die mir selbstent- schreiben Sie mir: Ugo Doss, 
wickelte Software zu diesem St. Jakobs-Platz 10, 8000 
Thema auf Kassette/Disk. zu- München. 
senden können. _—— 
Ingo Lemke. Nordereck 16. 
2359 Henstedt/Ulzburg. 
Tausche kaum gebrauchten 
Commodore 116 gegen Com- 
modore 16 o. gegen Aufpreis. 
Tel. MEIDEN: 
XC16X c 16 
Verk. Software: Spiele Ma- 
stertronic DM 60,-. Favourite 
4 DM 20,- und mehr, alles 
Originale. Turbo Tape, Micro/ 
Calc. Sonderhefte etc. Tel. 
0551/62896. 


8476 bytes program 
1717 bytes variabels 


1877 bytes free 


Wer schenkt armen Berufsun- 
fähigkeits-Rentner für C 116 
3 64 KB Software, Floppy + 
Drucker. Bitte Software für 
Datasette 1531. Alfred Stock. 
Friedrich-Kraus-Str. 1. 8505 
Röthenbach/Pegnitz. 


Defekten C-64 + Floppy ge- 
sucht. Suche auch VC2O bis 
DM 65,- und 16K Speicherer- 
weiterung bis DM 25,-. Tau- 
sche GEO-Hefte: 10/76 bis 
10/82 = 72 Hefte + Erstaus- 
gabe + 8 GEO Spezial gegen 
C 64 oder Floppy 1541 + 
DM 100,-. Wertausgleich. Tel. 
09732/4297. 

Verkaufe Seikosha 550VC für 
Commodore Computer, mit 2 
Farbbändern und Demodis- 
kette oder Kassette für 200,— 
DM. Zustand: Wie Neu!!! Su- 
che C 128 Clubs und User. 


C16 --Plus/4--C 116 


Tausche und verk. C 16/116 Tel. Mo-Fr. ab 18.00 Uhr: 
und Plus/4 Software auf Disk. 02445/8023. 

Info und Liste bei: Heiko Fa-_ ——--—- ——- — 
nieng. Eigen-Richter-Str. 14, Verkaufe: Commodore-Moni- 


5800 Hagen. “ tor 1702, 1 1/2 Jahre, wenig 
en gebraucht, DM 550,—, ver- 
Verk. VC-20,8K + 32K-Ram- schiedene 
Erw. Jostick, Datasette, DB- Eng., Spanisch, Ital. u.v.m. 
Tips und Tricks, VC20-Buch, Tel. ab 19.00 Uhr: 0202/ 
viel Software + Basickurs 771963. 


(Kassetten) DM 250,-. Tel. 
040/836836. 

Suche Spielprogr. für C116- 
eventl. im Tausch gegen 64er 
Programme. Richard Lenzen. 
Bahnhofstr. 14 a, 8725 Arn- 
stein. 


Datenverarbeitungspro es. 
für PC-128 + 802 kon 
helfen? Weiterhin suche ich 
Anwendungsprogramme f. 
PC-128. Problemlösung an: 
Uwe Maas, Westwall 18, in 
4150 Krefeld 1. 


« 


LISTING 


HANDELS- 
KALKULATION 


Ein kaufmännisches Programm für: 

— Schüler 

— Lehrer 

— und weitere Interessenten. 

Nach dem Eingeben von RUN und Betätigen der 

ei startet das Programm mit dem Titel- 
ild. 

Dann werden Sie aufgefordert, ein Programm mit der 

entsprechenden Zahl anzuwählen. 

Ihnen stehen folgende Programme zur Auswahl: 

— Vorwärtskalkulation 

— Rückwärtskalkulation 

— Differenzkalkulation 

— Kalkulationszuschlag 

— Handelsspanne 

— Prozentualer Aufschlag 

— Prozentualer Abschlag 

— Kalkulationszuschlag in DM + % 

— Handelsspanne in DM + % 

Wenn Sie Ihr Programm angewählt haben, befragt Sie 

der Computer nach den einzugebenden Daten. 

Sobald dies geschehen ist, berechnet das Programm 

die auszugebenden Daten und druckt sie am Bild- 

schirm aus. 

Drücken Sie nun eine Taste, erscheint auf dem Bild- 

schirm wieder das Titelbild. 


Folgendes müssen Sie bei den Eingaben beachten: 

— Nach jeder Eingabe muß die RETURN-Taste ge- 
drückt werden ; 

— Bei Komma-Zahlen nur Punkte verwenden 

— Falls ein Datenwert nicht vorhanden ist, geben Sie 
bitte eine 0“ ein. 


LATEIN Il 


Nachdem Sie das Programm gestartet und eine beliebi- 
ge Taste gedrückt haben, kommen Sie zum Eingabe- 
menü. Sie können nun wählen, ob Sie zur Eingabe 
oder zur Bildung des Imparfait möchten. 

Im Eingabefeld können Sie nun die Verben eingeben 
und der Computer spuckt die Daten aus. Danach kön- 
nen Sie sich entscheiden, ob Sie noch einmal möch- 
ten oder ob Sie aufhören möchten. 
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HTaendelskalkulatlionen Er 7 — 


18 rem handelskalkulation =======16 
28 rem (p} 12/86 commodore welt == 
38 rem = =-=-=-=-1= mon mono moon 


48 rem (c) 11/86 by h.p.katzemich=-= 


58 rem berg. gladbach 2== 
68 rem ==. 
78 rem basic v3.5 in: 
88 rem c16/116 plus4 c128 == 
98 rem ===>=-=-=----==== = nom 


95 gosub 68908 


188 print ErenasEnt Es ur®, a7 vorwae 


rtskalkulation---.:-..%-% 

112 print EURIOR RLUNN a” EREREIN 
tskalkulation......... 

128 print Latte a differenz 
kalkulation......-..-.- 3° 

138 print c4A$left$(qr$,4)"kalkulati 
onszuschlag.....-...... a” 

148 print c4$left$(qr$,4) "handelssp 


158 print c4A$left$(gqr$, a)” prozentua 
ler aufschlag......... &” 
169 print c4A$left$(qr$,4)"prozentua 
tier abschlag .- ---“....= 77 
178 print c4A$left$(qr$,4)"kalkulati 
onsz. 10m * Um:.:z-.:5 8” 
188 print c4$left$(qr$,4)"handelssp 
anne in % + dm.......- 9” 


EEE 18” 

288 print c4$c4$c4$c3$c3$"bitte geb 
en sie eine nummer ein ";:inputnn 
218 print c1$c4$c4$c4$ 

228 on nn goto 268,2798,268,838,848, 
1068, 1068, 1258, 1258, 1448 

268 print c3$rn$” listeneinkaufspre 
is....dm "rf$c3$; :inputl 

278 print c3$c4$rn$” rabatt (liefer 
EIS 2 u ae % "rf$c3$; :inputr 

288 print c3$c4$rn$” skonto (liefer 
Br): 8. 2% % "rf$c3$; :inputs 

298 print c3$c4$rn$” bezugskosten.. 
le ie se ae oe dm "rf$c3$; :inputb 

388 print c3$c4A$rn$" geschaeftsk. ( 
DRZI ie 4: zur u % "rf$c3$; :inputg 

318 if nn=3 then 338 

328 print c3$c4$rn$"” gewinn.......- 
CE % "rf$c3$; :inputa 

338 print c3$c4A$rn$" 'skonto (kunden 
ERENET Es ee % "rf$c3$; :inputc 

348 print c3$c4$rn$"” rabatt (kunden 
) RE ER Eee % "rf$c3$; :inputd 

358 if nn=1 then 388 

368 print ce3$c4$rn$" listenverkaufs 
Denen dm "rf$c3$; :inputx 

378 if nn=2 then 4489 

375 if nn=3 then 518 


398 h=(f*s) /188:i=f-h:k=i+b 
ABO m=(kK*g) /188:n=k+m 

a18 0o=(n*a) /188:p=n+to:v=1B@A-c 
428 u=(p*188) /v:t=u-p:2=188-d 
A380 x=(u*188) /z:d=x-u:goto 578 
448 d=(x*d) /1909:u=x-d 

458 t=(u*c) /188:p=u-t 

468 j=-a+1988:n=(p*198) /j:0o=p-n 
A478 q=-g+1908:k=(n*188) /q:m=n-k 
AB8 i=k-b:v=-1889-s:f=(i*108) /v 
498 h=f-i:w=188-r:1=( f*199) /w 
588 e=1-f:goto 578 

518 e={1*#r) /1i9®8:f=1-e 

528 h=(f*s) /188:i=f-h:k=i+b 
538 m={(k*g) /188:n=k+m 

S5a8 d=( x*#d) /189:u=x-d 


558 t=( u*c) /188:p=u-t:0=>p-n 


568 w=( 188*o) /n 

578 scnclr 

575 print he$ 

588 print using " AHHHHHHHHHH EHER AH 
#”";"listeneinkaufsp."”,1 

598 print using " HAHHHHHHHHHHHHR  H 
#";"rabatt (lieferer)”,e 

688 print 
618 print using " HHHHHHH HERE HHHH A 
#”;"zieleinkaufsp."”,f 

628 print using " AHHHHHHHHH IHR A 
#";"skonto (lieferer)"”,h 

6384 print "2-7 nn 


648 print using " HHHHHHHHHHHHHHE HM 
#”";"bareinkaufsp."”,i 
658 print using " HHHHHHHHHHHHHHR A 
#" ;"bezugskosten"”,b 
668 print 


678 print using " AHA HH HR A 
#";"bezugspreis"”,k 

688 if nn=4 or nn=S5 then 1828 

698 print using " HHHHHHHHHIEHHR A 
#";"geschaeftsk. (hkz)",m 

788 print 
718 print using " AHHHHHHHHH HH H 
#";"selbstkostenp.",n 

728 print using " HAHN HHHHHH AH 
#";"gewinn",o 

738 print 
748 print using "” U # 
#";"barverkaufsp." 

758 print using " Kanne. # 
#";"skonto (kunden) "” 

268: print, ” ==----- 2 - Homer 


778 print using " HHHHHHHHHHEERERHE 4 BD 
107 n 


388 e={1*r)/188:f=1-e 


Hondelskalkulotlionen u 2 = 


#";"zielverkaufsp."”,u 

788 print using " HH 
#";"rabatt (kunden)"”,d 

798 print 
888 print using s2E HH 
.##";"listenverkaufsp.",x 

818 print 


828 goto 1428 

838 print c3$left$lqd$,4)rn$"” liste 
neinkaufspreis..----- dm "rf$c3$; :in 
putl 
848 print c3$c4$rn$"” rabatt (liefer 
ER EEE % "rf$c3$; :inputr 
858 print c3$c4$rn$"” skonto (liefer 
Er a % "rf$c3$; :inputs 
print c3$cA$rn$” bezugskosten.. 
Ba: Der zus) are dm "rf$c3$; :inputb 
if nn=4 then 988 
print c3$c4$rn$” handelsspanne. 
N er % "rf$c3$; :inputw:goto 

955 

988 print c3$c4$rn$” kalkulationszu 
schlag... - x -...-» % "rf$c3$; :inputj 

918 e=(1#r) /188:f=1-e:h=(f*s) /188 
928 i=f-h:k=i+b:v=(k*j) /188:x=ktv 
938 print cl$left$(qd$, 10) 

948 print using " HHHHHHHHHHEHERHN  H 
#";,"kalkulationszus.",Vv 

958 goto 575 

955 print c3$cA$rn$"” listenverkaufs 
Dessen % "rf$c3$; :inputx 

968 q=[ x*w) /188:k=x-qg:i=k-b 

978 j=188-s:f=(i*188)/j:h=f-i 

988 v=198-r:1=(F*198) /v:ie=1-f 

998 print c1$left$(qgd$, 10) 

1880 print using " HAHHHHHHHHHHRRR. 
#4" ;"handelsspanne”,q 

1818 goto 575 

10208 orinE C3REa - een 
1838 print using " HHHHHHHHHHRHHHHR. 


#4” ;"listenverkaufsp.",x 


19859 goto 1418 
1868 print left$(qd$,5)c3$rn$"” gesc 


haeftsk-. C(hkz} .„.- ---- %"c3$rf$; :inp 
utg 
1878 print c3$cA$rn$”" gewinn......- 


Dear %"c3$rf$; :inputa 

print c3$c4$rn$" skonto (kunde 
INDP  e e en %"c3$rf$; :inputc 

print c3$c4A$rn$"” rabatt (kunde 
Miles a at %”"c3$rf$; :inputd 

if nn=6 then 1178 
e=189-d:h=(e*c) /188:t=e-h 


1128 o=-188+a:m=( t*1908) /o:f=19@8+g 
1138 k=(m*#188) /fF:z=k-188 

1148 mn=z-z:tt=mn-z:q=int( tt*18°2+8 
„SyY/ 1072 

1158 print c1l$left$(qr$,5)left$lqd$ 
‚11)rn$" die handelsspanne betraegt 

"rf$c4A$ 

1168 print tab( 16) ;q;"%":goto 1238 
1178 e=( 1988*g) /189:h=1B8+e 

1188 t=(h*a) /188:0=h+t 

1198 m=188-c:f=( 0*108) /m 

1288 k=1908-d:n=( f*i198) /k:yy=-n-188 
1285 v=int( yy*18°2+8.5)/18°2 

1218 print c1$c3$c3$left$(qd$,11)rn 
$" der kalkulationszuschlag betraeg 
t: "rf$c4$ 

1228 print tab( 16) ;v;"%"” 

1238 print left$(qd$,9)c3$rn$"<<< " 

f1$"druecken sie bitte eine taste”f 
o$" >>>"rf$ 

1248 getkey a$:if a$=""then 124B:el 
se goto 188 

1258 print c3$left$(qd$,?)rn$” bezu 
Fspreis: aeanecwe zen dm "rf$c3$; :inp 
utk 

1268 print c3$c4$rn$” listenverkauf 
spreis..... dm "rf$c3$; :inputx 

1278 if nn=B then 1348 

1288 p=x-k:pp=(p*188)/x 

1298 hh=int(p*19°2+8.5)/18°2 

1295 q=int(pp*19°2+8.5)/18°2 

1388 print c1$left$(qr$,4)left$lqd$ 
‚18)rn$" die handelsspanne betraegt 
in: "rf$c4$ 

1318 print tab( 15) "dm"; hh 

1329 print tab( 16)cA4$"%";q 

1338 goto 1398 

1348 p=x-k:ww=(p*188) /k 

1358 rr=int(p*19°2+8.5)/19°2 

1355 v=-int(ww*18°2+9.5)/18°2 

1368 print c1l$left$(gd$, 18)rn$"” der 
kalkulationszuschlag betraegt in: 
"rf$c4$ 

1378 print tab( 15) "dm"; rr 

1388 print tab( 16) cA$"%";v 

1398 print left$(qd$,8) c3$rn$"<<< " 
f1$"druecken sie bitte eine taste"”f 
0$s2$">>>"rf$ 

1488 getkey a$:if a$=""then 148B:el 
se 188 

1418 print left$(qd$,7) 

1428 print c3$rn$"<<< "f1$”"druecken 
sie bitte eine taste"”fo$" >>>"rf$ 
14308 getkey a$:if a$=""then 1430:el 

se 188 

1448 end 

68088 rem nachspann ===>===7->>=-7 
6BB10 rem * farbcodes/steuercodes * 
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a ———————————————eeeeeeeeeeeeeeeeeeeee en — 


EEE 


Hondelskalk, 3 — Franz = Verben — 7 


52828 cA$=chr$( 817) :rn$=chr$( 818) 18 rem franz. verben ii ========cbm 
58838 he$=chr$( 819) :c3$=chr$( 929) 28 rem (p) 12/86 commodore welt == 
58848 F1$=chr$( 138) :Fo$=chr$( 132) 38 rem = ---nunnan anna nn nn nn nn 
58858 rf$=chr$( 146) :c1$=chr$( 147) 48 rem (c) 11/86 by st.idraheim == 
58868 rem ##* zeichensatz/graphik * | 58 rem bochum 7- werne == 
58878 s2$=chr$( 168) 468 rem m 
5BBBB rem FHrFtrttt zeichenfolgen *# | 78 rem basic v2.8/v3.5 m 
58898 for q=1 to 48 88 rem c64 c16 plus4 c128 . = 
58198 qd$=qgd$+cA4$:gqgr$=qr$+rc3$ 98 rem ====-=-=-==-========== === 
58118 next q 188 printchr$( 147) chr$( 154) 

58128 return 118 ifpeek(44)=8then poke53288,8:po 
58138 rem ========================= [ K653281,8:rem c64 ° 


128 ifpeek(44)=16then color®,1:colo 


EB1AB rem BiI2277 bytes memory == 
2 rA,i1:rem c16/116 plus4 


SB15B rem AB6262 bytes program 


5A168 rem AUAHOR bytes variables == 138 printtab{(8) "unregelmaessige ver 
58170 rem BBBBHRA bytes arrays == ben" 

50188 rem BHBONHR bytes strings == | 148 print:printtab( 14) "teil ii" 
52198 rem 884056 bytes fre(B) == 158 print:print”"fortsetzung des pro 
5B2H8 rem ==>==-=-=-=-=- =... ...-.- oo. gramms "frz.verben’" 


168 printtab[(4)"aus der ausgabe nr. 
5/86 mai” 

178 print:print"konjugation der wic 
htigsten verben im" 

188 printtab(9)"imparf ai t" 

190" printtabl 9} Y--- 772 = 
288 print:print:print 

218 printtab(8)"(c) copyright by s. 
Ad 

228 print: print: print: printtab( 8)” b 
itte taste druecken" 

238 geta$:ifa$=""thengoto238 

248 printchr$( 147) 

258 print:print"sie haben nun die m 
oeglichkeit sich zum" 

268 print:print"eingabemenue zu beg 
eben,indem sie ’e’ 

278 print:print"druecken.sie koenne 
n aber auch ’n’"“ 

288 print:print"waehlen. dann sagt 

ihnen der computer” 

298 print:print"wie der imparfait u 
eberhaupt gebildet" 

388 print: print"wird." 

318 print:print:print"bitte entsche 
iden sie sich nun !!!!!" 

328 geta$:ifa$=""then32® 

338 ifa$="n"thengoto838 

340 ifa$=-"e"thengoto368 

358 ifa$<>"n"ora$<>"e"thenprint"fal 
sche eingabe"”:fort=1t01588:next:got 
0318 

368 a=31:dimv$la,?) :forz=itoa:fort= 
1t0o7:readv$( z,t) :nextt:nextz 

378 printchr$( 147) 

388 print"bitte geben sie nun ihr g 


ewuenschtes" 
398 input”verb ein";a$ 
488 forz=1toa:ifa$=v$(z,1)thengoto4 2» 
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Frosnmn:z . Verben 


38 

aid next z 

428 print:print"verb kommt nicht vo 

r":fort=1t01588:next:goto37®8 

438 printchr$( 147) :print"verb:" 

ntv$(z,1) 

4A® print:print"singular: 

2 B 

458 print”je ";v$(z,t) :fort=3to3:pr 
int"tu ";v$(z,t) :fort=4to4:print"il 
";v$(z,t) 

468 print:print"plural: 

print"”nous ";v$(z,t) :fort=6t06 

478 print"vous ";v$(z,t) :fort=7to?: 

print"ils.."”;v$(z,t) :next 

488 print:input"noch einmal <j/n> ? 
7":1$ 

498 ifi$=-"j"thengoto378 

588 ifi$="n"thenprintchr$( 147) end 

518 ifi$<>"j"ori$<>"n"thenprint"fal 
sche eingabe":forw=1t0o188@:next:got 

0488 

528 data aller,allais, 

-lions,alliez,allaient 

538 data avoir,avais, 
ns,aviez, Sratank 

540 data battre, battais, 
‚battions,battiez  battaient 

558 data boire,buvais, ‚„buvait,bu 
vions,buviez,buvaient 

.568 data conduire,condais, ’” 

t,condions,condiez,condaient 

578 data coudre,cousais,’’,cousait, 

cousions,cousiez,cousaient 

588 data courir,courais, ’’,courait, 

courions,couriez,couraient 

598 data croire,croyais,’’ 

croyions,croyiez,croyaient 

6088 data devoir,devais,’’,devait,de 

vions,deviez,devaient 

618 data dire,disais,’’,disait,disi 

ons,disiez,disaient 

628 data dormir,dormais, ’’,dormait, 

dormions,dormiez,dormaient 

638 data ecrire,ecrivais, ’’,ecrivai 

t,ecrivions,ecriviez,ecrivaient 

648 data envoyer,envoyais,’’,envoya 

it,envoyions,envoyiez,envoyaient 

658 data etre,etalis, ‚etait,etions 

‚etiez,etaient 

668 data faire,faisais, ’’,faisait,f 

aisions,faisiez, enge 

678 data lire, Iisais, ‚lisait,lisi 

ans LisTez Ilsatänt 

658 data mettre,mettais,’’ 

mettions,mettiez,mettaient 

698 data mourir,mourais,’’, 

mourions,mouriez,mouraient 

788 data ouvrir,ouvrais,’’ 


:prE 


":fort=2to 


‚avait,avio 


‚„battait 


‚ceondai 


‚eroyait, 


‚mettait, 
mourait, 


‚ouvrait, 


":fort=5toS: 


‚allait,al 


impaorrait,. = a. ie 


ouvrions,ouvriez,ouvraient 

718 data partir,partais, ’",‚parteit, 
partions,partiez,partaient 

728 data plaire,plaisais, ’",plaisai 
t,plaisions,plaisiez,plaisaient 

738 data pouvoir,pouvais, ",‚pouvait 
‚pouvions,pouviez,pouvaient 

748 data prendre,prenais, ’’,prenait 
‚prenions,preniez,prenaient 

758 data savoir,savais, ’’,savait,sa 
vions, saviez, savaient 

768 data suivre,suivais,”’’, 
suivions, suiviez,suivaient 
778 data voire,voyais,’’,voyait,vou 
yions, voyiez,voyaient 
788 data vouloir,voulais, 
‚voulions,vouliez,voulaient 

798 data tenir,tenais, ’’,tenait,ten 
ions,teniez,tenaient 

808 data manger,mangeais, ’’,mangeai 
t,mangions,mangiez,mangeaient 

818 data finir,finissais, ’’,finissa 
it,finissions, finissiez,finissaient 
828 data payer,payais,’’,‚payait,pay 
ions,payiez,payaient 

838. printchr$( 147) 

848 print:print"der ’imparfait’ wir 
d gebildet,indem man" 

858 print"am ende des verbsstamms 
ais,ais,ait, 

868 print"”ions,iez,aient’ dranhaeng 
t,d-h.2” 

878 print:print"z.b. 
m ist ”’pay’ und hier" 
888 print”ist ’er’ die endung (man 
sagt auch er-"” 

898 print"-endung) .nun werden die 
imparfait’" 

988 print"”angehaengt.also:"” 

918 print”je...pay ais" 

928 print"tu...pay ais"” 

938 print"il...pay ait” 

948 print"nous pay ions"” 

958 print"vous pay iez" 

968 print"ils pay aient"” 

978 print:print”"sie koennen es ja m 
al ausprobieren !!!"” 


988 print:printtab( 18) "taste drueck 
en TIER 


suivait, 


.s 


‚voulait 


’ 


payer.der stam 


’ 


‘998 geta$:ifa$=""then998 


1888 goto368 

1818 rem franz. verben ii =====cbm 
1828 rem 838911 bytes memory = 
1838 rem 8984311 bytes program == 
10948 rem 898888 bytes variables == 
1858 rem 888888 bytes arrays = 
1868 rem BB88088 bytes strings == 
1878 rem 834608 bytes fre(B) == 
1888 rem = [22m mmseomoompommemm 


110 


elosutomat 


SPIEL- 
AUTOMAT 


Das Prinzip ist ja bereits bekannt, es geht um den be- 
-ähmten einarmigen Banditen. In dieser Version dient 
=!s Haupteingabe die “Return“-Taste. 
= können jede der drei Walzen durch Druck auf die 
“Return‘‘-Taste stoppen. 
Nach jeder Runde können Sie das Spiel mit der Space- 
Taste beenden. Sie haben ein Startkapital von 5 
Rubeln. Sollten Sie drei gleiche Bilder erhalten, so 
können Sie Freispiele und Geld gewinnen. Bei nur 
zwei gleichen Bildern gewinnen Sie 0-64 Rubel, 
wenn Sie schnell genug reagieren. Bei einem Doppel- 
bild gelangen Sie auf die Ausspiel-Leiste, die getreu 
em Vorbild mit entsprechendem Risiko um alles 
a nichts gespielt werden kann. Die Bilder der Wal- 
zen sind sehr schön gestaltet und lassen das Spiel 
sehr professionell erscheinen. 


18 rem spielautomat =============16 
28 rem [(p) 12/86 commodore welt == 
38 rem =====-======== ===> === = ===> 
48 rem (c) 11/86 by juer'gen otto == 
58 rem nordhorn == 
68 rem 
78 rem basic v3.5 == 
88 rem ci16/116 plus 4 c128B == 
98 rem ====-=-- == === == === === == 222 ===> 
95 poke 55,255 : poke 56,55 : clr 
188 gosub 690829 

118 gosub 1368 : rem anleitung 

128 color 8,1 color: 1,1 = color 4 


1 
> 
138 printcl$"monitor"left$(qd$,5) 
rem umkopieren des zeichensatzes 
148 print"t d989,d7ff,3880" 
158 printc4$"”x 
168 printc4$"”goto2988" 
178 poke 1319,19 : for x=1328 to 13 
23 : poke’x,13 next x 
188 poke 239,5 : end 
198 rem aendere chr 


2808 for z=1 to 25 : rem anzahl ze 
ichen 

218 read j : rem startadre 
sse 

228 for t=8 to 7 : rem einlesesc 
hleife 

238 : read a : rem der acht 
bytes 

248 : poke jtt,a : rem eines zei 
chens 

258 next t 


268 next z 

278 data 14856,9698,966, 157,161,161, 
157,866,868 : rem copyright 

288 data 14880,0098,9800,0091,903,986, 
012,9088,888 : rem glocke 

298 data 14888,9031,848,896,831,8®81, 
001,099, 888 

3988 data 14896,888,898, 128,192, 
048,816,816 

318 data 14994,249,012,806,253,128, 
128,98090,988 

328 data 14912,8909,080,9089,855, 
079,956,947 rem kirsche 

3389 data 149280,9839,868,868,856,88®, 
088,001,088 

348 data 14928,0908,9080,099,832,176, 
168, 164,828 

358 data 14936,255,88®, 168, 168,168, 
192,128,088 

368 data 14944,890,093,92906,004,006, 
893,901,088 rem dollar 

378 data 14952,000,008,9008,90812,806, 
003,821,288 


096, 


078, 


111 


9 1104 RA eh De 
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388 data 14968, 128,224,176,128,128, 
128, 192,224 

398 data 14968,176,144,144,144,144, 
176,224,128 

488 dato 14976,888,881,831,031,861, 
863,126,127 : rem orange 

418 data 14984,127,863,863,831,815, 
891,000,988 

428 data 14992,8898,128,248,248,188B, 
252,254,254 
A380 data 15808, 
128,009, 888 
448 data 15998,8081,0297,008,928,028, 
033,833,832 : rem smily 

458 data 159816,828,918,817,2088,884, 
803,098, 9008 

468 data 15824,128,224,016,049,048, 
132,132,9094 
478 data 15832, 
192,9089,9880 
488 data 15949,9080,996, 120,062, 
8308,831,883 : rem kleeblatt 
498 data 15848,893,931,938,062,9062, 
1298,896,088 

588 data 15856,90890,0896,039,124,124, 
128,248, 192 

518 data 15972,192,248,128,124,124, 
030,096,988 


254,252,252,248,24A8, 


0408,972,136,816,832, 


862, 


528 dim a$( 2,6) ,„ b$(6) ,„ 3202) : f 
r=8 : ka=5 

s38 i=-rndl ti) : J1=8 : r$=f1$ : 32( 
8) =8 j2t1ı)=-9 : 3202)=8 gosub 98 
7) 

548 ru=® : fi1=B : b$L1I)=ye$+"DF"+c4A 
$+ce1$+c1$+"EG"+c2$ 


558 BT =cy$+"HJ”"+c4$+c1$+c1$+"IK” 
+c2$ 

568 b$L 3) =1g$+"LN”"+c4$+c1$+c1$+"MO” 
+c2$ 

578 b$( 4) =0oe$+"PR"”+c4$+c1$+c1$+"Q5” 
+c2$ 

588 b$(5) =wh$+"TV"+c4$+c1$+c1$+"UW" 
+c2$ 

598 b$(6) >= Ir$+"xXZ” +c4$+c1$+c1$+"Y"+ 

yn$+c2$ 

688 For x=1 to 6 : c(x)=2"x : c$(x) 
=str$(c[(x))+" "”:next: b$=c1$+c1$+c1 
$ :b1$=1left$(q1$,4) 

618 c$LA)=-" 16 " : c$(5)=-" 32" :c 
$(6)=> " 64 " : b2$="..." b3$=" 


628 poke 65298,8 : poke 65299,56 : 
poke 748,56 : rem von rom auf ram s 


chalten 

630-HTrINE EL SETS" N nen. spielom 
at c16/116" 

BAD. prant rn da. een A by "wh$"jue 


rgen otto"” 


658 print c4$c4$cA$gr$"”..... "zf$"CC 

CCCECECE"Zh$H"COCCECCCECE"zZh$"CCEECECECcEEC 
"zd$ 

668: print ":..-: B walze 1 B walze 2 
B walze 3 B" 

678 print "....."za$"CCECEEECEEC"ym$” 
ECCCCCCCE"ym$"CCECCCECcCcCcC"zif 


68%: print 7... 21.. = Ve Bi a een 
ABz cn a see B" 

698: print "as Dr acer Bin aa an 
Een B" 

708: print ".... RE en che 
BE easy BS 

718: print "...: Blana sie ara a Bis mr 
a = B 

7eB. print Dose "zc$"CECEECCECEEE"zZg$" 
ECCCCCECE"zZEK$"CCCCCECECECE"zs$ 

738 print Eat H) rn$ye$"”..-.... commo 
dore 116...... 


748 print c4$cA$1r$zFf$"CCECCC"zh$"CC 

CCC"zh$"CCCCC"zh$"CCCcCcCcC"zh$"CCCcCct 

"zh$"CECCECE"Zd$ 

758 print "8 "el 1)” B "cl IB "ea 

y" 8 "ct4)” B.rc{5)" B "c(6)" .B7 

768 print za$"CCECE"”ym$"CCECCE"ym$"C 

CCCC"ym$"CCCCCC"ym$"CCCECC" ym$"CCCC 

cc"zi$ 

770 print SB. .2..3Br .4..2B.r.Bi.5Be 6, 
-B....32..7B.642..Bz 

788 print zc$"CCECECEE"zZg$"CCCCC"zg$"C 

CCCC"zE$"CECCCCC"zg$"CCCCCC"zg$"CCCC 

CC”"zs$ 

798 for j=-8 to 2 : gosub 968 : 
3 : if j1i1=3 then 1868 

888 goto 798 :rem hauptschleife 
818 ka=katru-1 fr=-fr+fi:if ka=d a 
nd fr=8 then print c1$+c4$+"sie sin 
d pleite.”:end 

828 print he$left$(qgd$, 14) tab( 11) 
"rubel.-.. 2. :":ka 

838 print tab( 11) "freispiale-” ‚fr 
848 if fr>8 then fr=fr-i : ka=katl 

858 getkey i$ : if i$<>chr$( 32) the 
n 538 

868 ka=ka+fr : print left$(qd$,5)"s 
ie besitzen "ka”rubel." 

878 if ka>5 then print "sie haben 
ka-5"rubel gewonnen-bravo."” 


next 


"888 end 


898 : 

988 rem zufallsstartpositionen der 
einzelnen raeder bestimmen 

918 for j=-8 to 2 
928 i=int(rnd(ti)*7) 
938 next j 

948 return 

958 : 

968 rem drehen der raeder 


EEE 
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TE " 
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78 if ji1=3 then return 
ss® if j2(j)=1 then return 


5®@8 get q$ : if q$=chr$( 13) then q( 
53-3037) 2 323) =-1 231-311: De 
turn 

‚288 if q$=chr$( 32) then if j1-1 th 

an ji=j1-1 : j2(8)-® : return 

wu: 17=-103)+1 3 3>30D = 31 1-7 
then i=1 

228 a$l j,i)=b$li) : ilj)-i 

‘238 printhe$left$(qd$,9) tab( 9+3j*1 

2)a$( j,i) 

848 return 

1858 : 

1868 rem gewinnauswertung 


1878 
n gosub 1188 : 
® 

1888 if q(B8)=ql 1) or q(B)=ql2) or q 


if q(®)=q(1) and q(B)=q(2) the 
gosub 1248 : goto B1 


{1)=q(2) then gosub 1248 : goto B1B 
1898 printhe$c4$cA4$c4$".......---- k 
eine gewinne” : ru=® : fi=8 : goto 
518 

ı180 : 

1118 rem gewinn von freispielen 
1128 print he$left$(qd$,16)wh$ tab 
39) : x=1 

1138 if x=7 then 1218 

1148 print spc(3) c$(x); 

1158 get y$ if y$<>chr$( 13) then 
1188 

1168 if int(h/2)=h/2 then 1218 

1178 x=x+1 : goto 1138 

1188 if x>3 then b$=b1$ b2$=b3$ 
1198 h=h+1 : if int(h/2)=h/2 then p 
rint b$;b2$; : for b=® to 15:next: 
goto 1158 

1288 print b$;c$(x); : goto 1158 
1218 F1=2"(x-1) : if fi=1 then f1=8 
1228 return 

1238 : 

1248 rem gewinn von rubeln 

1258 print he$left$(qd$, 18)wh$ tabl 
39) x=1 : b$=c1$+c1$+c1$ : b2$=". 
1268 if x=7 then 1348 

1278 print spc(3) c$(x); 

1288 get y$ : if y$<>chr$( 13) then 
1318 - 

1298 if int(h/2)=h/2 then 1348 

1388 x=x+1 goto 1268 

1318 if x>3 then b$=b1$ : b2$=b3$ 
1328 h=h+1 if int(h/2)=h/2 then p 
rint b$;b2$; for b=8 to 15:next: 
goto 1288 

1338 print b$;c$(x); : goto 1288 
1348 ru=2°(x-1) : if ru=1 then ru=Bd 
1358 return 


1368 print c1l$cA$1r$"...... anleitun 

g spielomat c16/116"” 

1378 print c4$gr$c4$cA$"sie koennen 
jede der drei walzen dusch"” 

1388 print "druck auf die ’return’- 


taste stoppen." 


1398 print "nach jeder runde koenne 
n sie das spiel" 
1488 print "mit der 
eenden.” 

1418 print "sie haben ein startkapi 
tal von 5 rubeln" 

1428 print "sollten sie drei gleich 
e bilder erhal-"” 
1438 print "ten, 
ispiele und geld" 
1448 print "gewinnen, 
gleichen bildern" 
1458 print "gewinnen sie 8-64 rubel 


"space ’-taste b 


so koennen sie fre 


bei nur zwei 


.. dies haengt von" 


1468 print "ihrer reaktionsschnelli 
gkeit ab.“ 
1478 getkey i$ : return 

68898 rem nachspann ========>-=-===== 
68818 rem * Farbcodes/steuercodes * 
6HA29R wh$=chr$( 885) :cA$=chr$( 817) 
69838 rn$=chr$( 818) :he$=chr$( 819) 
5aHAn gr$=chr$( 838) :0e$=chr$( 129) 
80n5R Fl$=chr$( 138) :c2$=chr$( 145) 
6ER c1$=chr$l 147) :Ir$=chr$( 158) 
69978 1g$=chr$( 153) :c1$=chr$( 157) 
68888 ye$=chr$( 158) :cy$=chr$( 159) 
68898 rem ##* zeichensatz/graphik * 
6H1BR za$=chr$t( 171) :zc$=chr$( 173) 
68118 zd$=chr$tl 174) :zf$=chr$( 176) 
698128 zg$=chr$( 177) :zh$=chr$( 178) 
68138 zi$=chr$( 179) :zs$=chr$( 189) 
69148 ym$=chr$( 219) :yn$=chr$( 228) 
68158 rem #tr##rtrt zeichenfolgen * 
68168 For q=1 to 48 

68178 qd$=qd$+c4$:q1$=q1$+e1$ 

68189 next q 

608198 return 

68289 rem 
68218 
69228 
68238 
628248 
69258 
68268 
69278 


812277 
896483 
880008 
Buna98 bytes 


memory — 
program == 
variables == 
arrays == 
uBu088 strings nt 
8983834 fre(2B) = 


COMMODORE-WELT 
Jeden Monat neu 


CATCH 
THE MOUSE 


Kater Karlo geht wieder auf Jagd. 

Steuern Sie die Katze mit dem Joystick durch einen 
Wald und versuchen Sie, die an verschiedenen Stel- 
len auftauchenden Mäuse zu fangen. Wie es sich für 
einen Wald gehört, stehen haufenweise Bäume her- 
um, die Karlo nicht leiden kann und daher nicht 
überspringt. Daher müssen Sie einen freien Weg fin- 
den, um die Maus zu erwischen. Sind Sie in die Nähe 
der Maus gelangt, müssen Sie diese mit dem Maul der 
Katze zu fassen bekommen, sonst geht sie Ihnen 
durch die Lappen. 

Sie müssen in einer vorgegebenen Zeit zehn Mäuse 
erwischen, um das nächste Level zu erreichen. In je- 
dem Level wird die Aufgabe natürlich schwieriger... 
Haben Sie ein Level erfüllt, wird zu den Punkten 

für die erwischten Mäuse auch die verbliebene Zeit 
addiert. Daher sollten Sie sich beeiien, Ihr “Soll“ 

zu erfüllen. 

Ach ja: Kater Karlo hat panische Angst vor Ameisen. 
Daher müssen Sie den im Gelände verstreuten Amei- 
senhaufen ebenfalls ausweichen, um an die Maus 
heranzukommen. 


catch the mouse =. 1 "we 


‘8 rem catch the mouse=========-=---- 539 data 126, 98, 96, 96, 96, 98, 1 
28 rem (p) by commodore welt == 26, 8 
38 rem === unenenannnnn nn nenn nn Sau data 69, 66, 66, 66, 66, 66, 68 
22 rem (c) by == ‚08 Ka 
58 rem hubert muehlbacher -- 558 data 124, 66, 66, 124, 68, 66, 
58 rem er 66, 8 
Se ee ae -- 568 data 102, 66, 66, 126, 66, 66, 
38 rem c. 16/116/p4 + cas/disk== 192, 08 
98 rem ==========-=-=- === ===0-=--000----- 5970 data 66, 66, 66, 66, 66, 66,68 
1%) 
E 
95 gosub 60988 580 data 112, 96, 96, 96, 96, 98, 1 
248 hs=10888 26, 8 ch”, 
258 k=3313:3x=74:b=73:f=2289:ze-5a0 598 data 126, 98, 96, 128, 96, 96, 
:xx=60:h=3647 96, 8 
268 poke65286, peek( 65286) and239 688 data 126, 66, 64, 78, 66, 66, 1 
278 poke 65298, peek( 65298) and251 26, 8 $ 
288 poke 65299, peek( 65299) and3or48 618 data 999,999,999,999,999,999,99 
298 for i = B to 17 : read a 9,999 
388 poke819+i,a:next:sysB19 6280 gosub 2198 
318 for za=12888 to 13148 step B 638 printc4$c4$cA$oe$left$lqr$, 12)" 
328 for i=®to?7:read a joystick port 1” 
338 if a=-999 then 628 648 vol 8 Y 
348 poke zati,a:nexti :nextza 658 xs=-int(rnd( 1)*8) +1 
358 data162,0,189,0,288,157,8,48,18 668 ifxs=1thenes-881 
9,8,289,157,92,49,202,288,241,96 678 ifxs=-2thenes=897 
368 data 16, 16, 16, 16, 56, 56, 56 6858 ifxs=3thenes=911 
16 698 ifxs=-A4thenes=917 
378 data ®, 24, 68, 126, 126, 255, 788 ifxs=-5thenes=929 
255, 126 718 ifxs=6thenes=939 
388 data 24, 24, 68, 68, 126, 126, 728 ifxs=-7thenes=944 
255, 126 7308 ifxs=Bthenes=953 
398 data ®, ®, 9, 24, 68, 126, 255, 748 ifxs<=-3thenlp=15 
255 . 758 ifxs>3andxs<7thenlp=18 
400 data 128, 128, 192, 192, 224, 2 768 ifxs>6thenip=5 
48, 252, 258 778 for 11=1to 1p 


418 data 1, 1, 3, 3, 7, 15, 63, 255 788 soundl,es,2.5:sound1l,es-1,2.5 
428 data 128,128, 137,233,175,225,2, 798 geta$ 


i2 808 ifa$=-" "then 838 

438 data 68, 6®B, 68, 68, 68, 68, 12 818 nextll 

6, 255 828 goto658 

448 data 64, BA, 71,127, 7, 2; 3 838 color®,2,4 

3 848 scncelr:sound1,664,6®8:sound2, 671 

458 data ®, 2, 246, 255, 246, 32, 3 ,68 

2, 48 858 poke65286, peek( 65286) and239 

468 data 8,64, 111, 255, 111, 4, 4, B6B k=-3313:ax=74:b=73:f=2289:h=3647 
12 ıxy=B 

478 data 2, 2, 226, 254, 224, 64, 6 878 gosub 1818 

4, 192 888 b1=3369:f1=[(b1-1824) :gosub1878 

488 data 126, 98, 90,- 24, 24, 24, 2 898 b1-3515:f1=(b1-1824) :gosub 1878 

4,0 988 b1=3682:f1=[(b1-1824) :gosub 1878 

498 data 48, 16, 16, 16, 16, 16, 4AB 918 b1=-3327:f1=(b1-1924) :gosub 1878 
‚ 8 928 b1=3738:f1=[(b1-1824) :gosub 1878 

588 data 36, 98, 98, 66, 66, 66, 66 938 b1=3493:f1=(b1-1824) :gosub 1878 
‚® 948 b1=3777:f1=(b1-1924) :gosub 1878 

518 data 126, 98, 96, 128, 96, 98, 958 b1=-3583:f1=(b1-1924) :gosub 1878 
126, 8 968 b1=3823:f1=( b1-1824) :gosub 1878 

528 data 126, 66, 64, 126, 2, 66, 1 978 b1=3428:f1=(b1-1824) :gosub 1878 

26, ® AB 61-3340: F1-(b1-1824) :gosub1870 39 
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mouse 


998 b1=3119:f1=(b1-1924) :gosub 1878 
1888 b1=3749:f1=(b1-1924) :gosub187® 
1818 b1=3836:f1=(b1-1924) :gosub 1878 
iA2B gosub 1938 

108392 poke65286 ,peek( 65286) or16 

12848 goto1348 

185B rem 

1068 printusinghe$rn$g1$c4$c4$c4$1e 
fFt$lqr$,A4) "HHHHRT ;s 

1978 printusinghe$rn$re$c4$cA4$cA$le 
Ft$lqr$, 18) "HHHHR” hs 

1868 printusinghefrn$i1b$cA$cA$cA$le 
Ft$lgr$, 32) "HHAH"bOK$; ze 

1898 ze=ze-1 

1188 if ze<2Bß8thensound3, 1928,2 
1118 if ze<@ then 2078 

1128 if mi=18dthen 1438 

1138 xy=xy+1 

1148 ifxy=i then 1768 
1158 ifxy=xxthen 1798 
1168 rem steuerung 
1178 ifjoy( 1)=1 then 
1188 ifjoy( 1)=3 then 
1198 ifjoy( 1)=5 then 
12808 ifjoy( 1)=7 then 
1218 goto2848 

1228 rem bewegung katze 

1238 ifpeek( k-48) <>32orpeek( k-41) <> 
32then 1338 

1248 f=f-48:pokek,32:pokek-1,32:k=k 
-48:g0ot01338 

1258 ifpeek(k+1) =65then 1368 

1268 ifpeek(k+1)<>32then1338 

1278 pokek-1,32:k=k+1:f=f+1:ax=74:b 
=73:goto1348 

1288 ifpeek(k+49) <>32orpeek( k+39) <> 
32then 1338 

1298 pokek ,32:pokek-1,32:k=k+48:f=f 
+49:g0ot01338 

1388 ifpeek(k-2) =65then 1378 

1318 ifpeek(k-2) <>32then 1338 

1328 pokek ,32:k=k-1:f=f-1:ax=76:b=7 
5:g0t01338 ; 

13308 rem katze 

1348 pokek,ax:pokek-1,b:pokef,17:po 
kef-1,17 

1358 goto185® 

1368 pokek-1,32:k=k+1:f=f+1l:ax=74:b 
=73:g0t01388 

1378 pokek,32:f=f-1:k=k-1:ax=76:b=7 
5:g0t01388 :;. 

1388 formf=1818 to 888 step-2B 

1398 sound3,mf,1:nextmf 

1488 s=s+198@:sound1,864,2 

1418 mi=mi+1:xy=B 

1428 goto1338 
1=1+1:color®,3,3:color4,1:scnc 


1238 
1258 
1288 
1388 


1448 printbk$he$left$(qgd$,6)left$(gq 


r$,5)"bravo!!! level"l"ist geschaff 
Er 
1458 s5=-s+tze:s6=-ze+333 


1460 fors4=zetos6 

1478 printhe$g1$left$( qd$, 18) left$tl 
qr$, 15) "MNOP.."”sA4:sound1,664, 1 

1488 nexts4 

1498 fors3=stos5 

1588 printhe$ye$left$(qd$, 14) left$( 
qr$, 15) "QRSTP "s3:sound2,711,1 

1518 nexts3 

1528 printg2$c4$c4$cA$left$lqr$,7)” 
viel glueck in level"”(1+1)"!!! 

1538 forws=1t0158@8:nextws 

1548 mi=9d:s=s3:ze=s4 

1558 ifs>hsthenhs=s 

1568 ifl=1then1668 

1578 ifl=-2then1678 

1588 ifl=-3then168B8 

1598 if1l=-4then1698 

1688 ifl-5then1788 

1618 ifl=-6then1718 

1628 ifl=-7then1728 

1638 ifl=-8then1738 

1648 ifl=9then1748 

1658 if1l>9then 1758 

1668 colord,2,4:xx=-38:goto848 

1678 colorß,1:g0t0848 


1688 color®,2,4:xx=23:goto849 


1698 colorß, 1:xx=21:goto848 

1788 color®,2,4:xx=19:goto848 

1718 colord,1:goto848 

1728 color@®,2,4:xx=17:goto848 

1738 color®, 1:g0t0848 

1748 color@®,2,4:xx=15:goto8B48 

1758 color, 1:xx=13:goto848 

1768 m2=int( rnd( 1) #719) +3312 

1778 ifpeek(m2)<>32 then 1768 

1788 pokem2,65:poke(m2-1824) ,113:so 
und1,994,3:g0t01858 

1798 pokem2,32:xy=-98:goto185® 

1882 goto1B5B 

1818 rem titelbild 

1828 printhe$c3$gr$"C" 

1838 print"F"rn$" "rf$"E”c3$bk$rn$"” 
QRSTP"rFf$"..."gr$"B..."bk$rn$"UNYUQ 
ASTP"rf$"..."gr$"C..."rn$bk$"MNOP" 


"1848 printgr$rn$"E F"ce3$rf$ye$"-=-== 


=. ."grS’F’rnS” "re ye  ee 
==_,."gr$"F"rn$"” "rf$"E”ye$"..=--- 
1858 printbr$c3$"H"left$(qr$, 18) "H" 
left$(gqr$,15)"H" 

1868 return 

1878 rem 

1888 pokeb1,67:pokeb1+39,78:pokeb1+ 
49, 160:pokeb1+41,69:pokeb1+79, 197 
1898 pokef1,53:pokef1+39,53:pokefl+ 
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Catch the mouse 


48,53:pokef1+41,53:pokef1+79,53 
1988 pokeb1+BB, 168:pokeb1+81,198:po 
keb1+128,72:pokef1+128,24 

1918 puokef1+B8,53:pokef1+B1,53 

1928 return 

1938 rem 

1948 pokeh,66:poke( h-19824) 16 

1958 poke3395,68:poke( 3395-1824) ,16 
1968 poke3372,66:pokel( 3372-1824) ,16 
1978 poke3464,68:poke( 3464-1824) ,16 
1988 poke3718,66:poke( 3718-1824) ,16 
1998 poke3618,66:poke( 3618-1824) ,16 
2888 poke3963,68:poke( 3963-1824) ,16 
2818 poke3988,68:poke( 3988-1924) ,16 
2828 poke3932,66:poke( 3932-1824) ,16 
2038 return 

28048 for zz=1t023 

2858 nextzz 

2868 goto 1858 

2878 rem 

2088 forse=488to1 step-1.5 

2898 soundi,se,1:sound2,se+t1,1 

2188 next 

21318 forws=1t058@:nextws 

2128 gosub 2198 

2138 printc4$c4$c4$oe$left${(qr$, 11) 
"neues spiel (j/n)" 

2148 ze=-588:s=8:getns$ 

2158 ifns$="j"then 628 

2168 ifns$="n"then 2458 

2178 goto2148 

2188 end 

2198 rem titelbild 

2288 poke65286,, peek( 65286) and239 
2218 color®,1:color4,1:scnclr 

2228 forb1=-3873t0o3118 step 3 

2238 fi=(b1-1924) 

2248 gosub1878:next 

2258 forb1=3233t03872 step 168 

2268 fFi=(b1-1924) 

2278 gosub187®8:next 

2288 forb1=3873t0o3918 step 3 

2298 Fi=(b1-1824) 

2388 gosub187®8:next 

2318 forb1=3269t03918 step 168 

2328 fF1=(b1-19824) 

2338 gosub1878:next 

2348 printcy$left$(qd$,5S)left$laqr$, 
8) "IJIJIJIJIJIJ"wh$"A"cy$"KLKLKLKLK 
L" 


2368 printleft$(qr$,8)"IJ.."g1$"RaM 
RU MUP 0OSVQP.."cy$"”KL" 
2378 printcy$left$(qr$,8)"IJ....... 


a ll ce eher KL” 
2388 printleft$(qr$,8)"IJ.."ye$"” 
RR) Bere ee "cy$"KL"” 


: 68928 


— 1232 — 
2398 printcy$left$(qr$,8)"IJ....... 
EN ee Ki" 
2488 printleft$(qr$,8)"IJ.."pu$"OVw 


NASXM. ..1986.. "cy$"KL” “; 


2428 printcy$left$(gqr$,8) "IJIJIJIJI 
JIy"wh$"A"cy$"KLKLKLKLKL” 

2438 poke65286, peek( 65286) ori6 

2448 return 

2458 printcl$rn$re$left$( qd$, 12) 1lef 
t$lqr$,8)"....OVWNQSXM...1986....” 
2468 colori,1:end 
68888 rem nachspann 
68812 rem * fFarbcodes/steuercodes *# 
wh$=chr$( 885) :c4$=chr$( 817) 
rn$=chr$( 818) :he$=chr$( 819) 
re$=chr$( 828) :c3$=chr$( 829) 
gr$=chr$( 838) :0oe$=chr$( 129) 
bk$=chr$( 144) :rf$=chr$( 146) 
c1$=chr$( 147) :br$=chr$( 149) 
g1$=chr$( 151} :g2$=chr$( 152) 
1b$=chr$( 154) :pu$=chr$( 156) 
ye$=chr$( 158) :cy$=chr$( 159) 
rem FFtXX528% zeichenfolgen *# 
for q=1 to 489 
qd$=-qd$+c4$:qr$=qr$+c3$ 

next q 

return 

rem ==== 7-2 22222 == ========> 
auuann» memory == 
897168 program = 
enanaa variables == 
BnHB88 arrays == 
auan0B strings I 
Ba0ou8D8 fre(®) == 


68938 
68848 
60858 
69068 
69872 
60888 
68899 
69180 
68118 
69128 
69130 
68140 
698158 
68168 
68178 
69188 
69198 
69208 
698218 
60228 
68238 
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SPIELE FÜR DEN 
C 16/116 UND PLUS A 


SERVICE 


Programmname Vertrieb Preis/ 
DM 
3D Time Trek R,J 19,95 
ACE R,P,A,J,K 32,00 
Airwolf R,P,J,K 29,95 
Alien Attak P 11,95 
Arena 3000 H 20,00 
Atlantis R,J,K 19,95 
Atomic Mission S 23,50 
Badits at Zero P,M 14,95 
Beach Head R,K 24,95 
Berks A 29,00 
Berks 2 A,J 29,00 
Berks 3 A,J 29,00 
Big Mac R,P,A,K,M 9,95 
Blagger P 29,90 
BMX Racer R,P,A,K,M 9,95. 
Bomb Jack J 29,00 
Bongo R,P,K,J 19,95 
Brunos Boxing J 29,00 
Canoe Slalom J,R 19,95 
Catacombs R,J 29,95 
Cave Fighter R,J 19,95 
Classic Adventure R 29,95 
Classic Compilation R,P,J,K 34,95 
Climb it R 9,95 
Commando R,P.J 27,95 
Cuthbert enters the Tomb H 35,00 
Cuthbert in Space Are: 35,00 
Daley Thompson’s Star Event R,P,J,K 19,95 
Dark Tower R,P,J,K 19,95 
Death Race 16 R 14,95 
Defence 16 R,P,J,K 27,95 
Diagon P 11,95 
Favourite Four R,P,J,K 27,95 
Finger Malone M 9,95 
Fire Ant J 25,00 
Flight Simulator 15 P 29,90 
Flight Path 737 K 25,00 
Football Manager P,J 29,90 
Formula 1 Simulator R,P,A,K,M _ 9,95 
Galaxians R,K,J 19,95 
Games Pack I R,J 19,95 
Games Pack II R,J 19,95 
Ghost Town P,K 19,00 
Grandmaster P,K,A 29,00 
Gremlins R,J 19,95 
Guasher P 11,95 
Gullwing Falcon "PK 29,90 
Gun Slinger R,J,P 27,95 
Hektic M 9,95 
Hop it R 9,95 
Hustler R,J,P,K 19,95 


Invasion 2000 A.D. 
Jack Attak 

Jamp Jet 

Jet Brix 

Jet Set Willy 

Kick Start 

Knock Out 

Kung Fu Kid 

Lawn Tennis 
Legionär 

Lunar Docking 
Mail Trail 

Manic Death Case 
Manic Miner 
Mansion Adventure 
Megga Zapp 
Minipede 

Monkey Magic 
Moon Buggy 


"Mount Vesuvius 


Mr. Puniverse 
Munch it 

Oblido 

Olympiad 

Out on a Limb 
Petch 

Plus Paket 

Pogo Pete 

Raider 

Reach for the Sky 
Rescue on Zylon 
Rig Attack 

Robin to the Rescue 
Rockmann 

Return off Rockmann 
Roller Kong 

Sea Strike 

Shoot it 

Skramble 

Skyhawk 

Slippery Sid 

Sorcere of Claymore Castle 
Space Escort 

Space Pilot 
Spectipede 
Spidermann 

Squirm 

Star Commander 
Starters Pack 

Street Olympics 
Suicid Run 

Sword of Destiny 
Terrorist 

Thai Boxing 

The Wizzard and the Princess 
The Hulk 

Timeslip 

Tom Thump 
Torpedo Run 


Modul 
+16k 


R,J 


R,K 

R 
R,P,K,J 
R,P,A,M 
R,P,A,M 
R,P,A,M 
R,J 

P 

M 

pP 

R,J,K 

R 
R,P,J,A,K 
R,J,K 
R,K 

J,K 

P,K 
R,P,J,K 


27,95 
23,50 
29,00 
29,95 
34,90 

9,95 
11,95 
24,95 
29,90 
25,00 
11,95 

9,95 
14,95 
29,90 
20,00 

9,95 
19,95 
19,95 


. 19,00 


29,90 
9,95 
9,95 
9,95 

14,95 

19,95 

19,95 

39,00 

29,90 
9,95 

27,95 

29,90 

14,95 

27,95 
9,95 
9,95 

19,95 
9,95 
9,95 

19,95 

11,95 

19,95 

14,95 

14,95 

19,95 
9,95 

14,95 
9,95 

19,95 

59,90 
9,95 

11,95 

29,95 

19,95 

19,95 

19,95 

14,95 

25,00 

25,00 

19,95 


RVICE 


_ ANWENDER-SOFTWARE FÜR 
C-16/116 UND PLUS 4 


Twin Kingdom Valley 1% 11,95 
Tutti Frutti R,P,A,M,K 9,95 
Vegas Jackpot R,P,A,M: 9,95 
Viduzzles Modul S 23,50 
Watersports K 25,00 
Williamsburg Adventure’ H 20,00 
Winter Olympiade R,K,J 29,00 
Winter Olympics R,P,A 27,95 
World Cup Football R,P,J,K 19,95 
World Series Baseball R,P,J,K 25,00 
Xargons Revenge P 29,90 
Zap:em R 14,95 
Zodiak K 29,00 
BÜCHER FÜR DEN C-16/116 UND PLUS 4 

Titel Verlag Vertrieb Preis 
Das große C-16 Kingsoft Kings., 29,00 
Buch Buchhandl. 

C-16 für Ein- Data- Data-Becker 29,00 
Einsteiger Becker Buchhandl. 

C-16 Tips & Data- Data-Becker, 29,00 
Tricks Becker Buchhandl. 
Graphicbuch Data- Data-Becker, 29,00 
zum C-16 Becker Buchhandl. 

C116 und Plus 4 

Basicbuch zum Data- Data-Becker, 29,00 
C-16, C116 und Becker Buchhand!. 

Plus 4 

Maschinensprache- Data- Data-Becker 29,00 
buch zum C-16/ Becker Buchhandl. 

116 und Plus 4 

Effektiv. & Kreativ Data- Data-Becker 49,00 
mit dem Plus 4 Becker Buchhandl. 

Tips & Tricks für Data- Data-Becker, 29,00 
den Plus 4 Becker Buchhandl. 
Rom-Listing für Commodore Kaufhäuser, 59,00 
für den C-16/ Computer-Läd., 

Plus 4 Buchhandl, 

C-16 in der Praxis Commodore Kaufhäuser, 30,00 
Commodore 16 Kiehl Computer-Läd., 

mit 116 Buchhandl. 
C-16-Wegweiser Vieweg Kaufhäuser, 48,00 

Buchhandl. 

Alles über den Markt & Markt & Technik 39,00 
C-16 Technik 


Programmname Hersteller Anmerkung Vertrieb Preis 

Graphic Designer Kas. K 19,00 
Home Office Kas. P 29,90 
Script/Plus Commod. Text verarb.M. V 39,00 
Cal/Plus Commod. Kalkulat.Modul S 34,80 
Micro Datei Kas K 29,00 
Micro Kalku. Kas K 29,00 
Micro Text Kas. K 29,00 
Musik Master K 29,00 


Kas. 
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Kas. K 
«Kas. K 


25,00 
19,00 


Paint Box 
Turbo Tape 


HARDWARE FÜR DEN C-16/116 UND PLUS 4 


Name Hersteller Anmerkung Vertreib Preis 

16KByte Speich. Speichererw. K 99,00 

64KByte Speich. Speichererw. K 199,00 

64KByte Speich. Speichererw. B 279,00 
kostenlos. 
Einbau 

64KByte Speich. Stechm. . Einbau mit : ST 99,00 

r Garantie 

64KByte Speich. Dela Speichererw. DE 89,00 
Modul 

Datasette-Adapt. C-64 Data- RPJ 8- 
sette an C-16 15,00 
116/Plus 4 

Joystick-Adapt. C-64Joystick RPJ 8-— 
an C-16/116 K,DE,V 15,00 
Plus 4 

Joystick Commod. ohne Adapter K 29,00 

; ‚anschl. 

Floppy 1551 Commod. Floppy nur fürV,ST 399,00 
C-16/116/ 
Plus 4 

Hitrans 300/c-16 CDI DFÜ-Set mit CDI 348,00 
Koppler, Ka- 
bei u.Software 

Unex-16 S&J Erweit. mit S&J 195,00 
Userp.Eprom- 
plätzen, RS- 
232 Schnittst. 

BEZUGSADRESSEN 


A Ariolasoft, Carl-Bertelmann-Str. 161, 4830 Gütersloh 


B Bockstaller Hard- und Softwareentwicklung, Hard- 
wigstraße 15, 7876 Wehr Öflingen 


[6 CDI Informationssysteme, Tauenziestraße 1, 
1000 Berlin 30 
Dela Elektronik, Maastricher Str. 23, 5000 Köln 
H Hansesoft, Rabenacker 1a, 2000 Hamburg 54 ; 
J Joysoft, Humboldstraße 84, 4000 Düsseldorf 1 
K Kingsoft, Fritz Schäfer, Schnakebusch 4, 

5108 Roetgen 


Stechmann, Dipl.-Ing. H. Stechmann, Sonntagsraße 
20, 2152 Horneburg 


P Profisoft, Sutthauer Str. 50-52, 4500 Osnabrück 

R Rushware, An der Gümpgesbrücke 24, 4044 Kaarst 
S Sova, W. Kurtz, Postfach 260151, 8000 München 26 
M Mastertronic, Kaiser-Otto-Weg 18, 4770 Soest 

A 


A&C Software, 75 Oakthorp Gardens, Tividale, 
West Midland B692LF 


AS Adamsoft, 18 Norwich Avenue, rochdale, lancs. 
OL115JZ 

DI Dimension Computer LTD., 27/29 Hight Street, 
Leicester LEI4FP 

DU Duckworth, The Old Piano Factory, 43 Gloucester 
Crescent, London NW17DY 

WI  Wizzard Software, 59. The Marles, Exmounth, 


Devon EX8NE 


DIE AKTUELL GRUPPE 
ERWEITERT 
IHRE REDAKTIONEN! 


Sie kennen uns: 


COMPUTER AKTUELL 
COMMODORE WELT 
MSX REVUE 
_ SCHNEIDER AKTIV 


TI REVUE. 


Für diese Zeitschriften suchen wir neue » Mitarbeiter. 


Es erwartet Sie in Deutschlands nicht mehr heimlicher Hauptstadt München ein Team 
netter Kollegen, wenn Sie sich mit Basic oder MS-DOS, der deutschen Sprache und 
Computern auskennen. 


WIR SUCHEN 


Technisch begabte Joumalisten oder joumalistisch begabte Techniker als 


REDAKTEURE Ä 


Ihre Zuschrift mit den wichtigsten persönlichen Daten erreicht uns unter folgender Anschrift: 
Aktuell-Gruppe, z. Hd. H.W. Seibt, Postfach 1107, D-8044 Unterschleißheim. 


Übrigens: Auch wenn Sie nureines dieser Computersysteme kennen und glauben, Dir schreiben 
zu können: Melden Sie sich einfach. 5 


116er ist eine Sonderausgabe der ee Für unaufgefordert eingesandte Manu- 
COMMODORE WELT und erscheint und inne ee 
4x jährlich in der CA-Verlags GmbH (i.G. ar ne a 
J g (i.G.) Printed in Germany ee überträgt der Autor 
5 > P REN ET EEE EN EEE lag die Genehmigung für einen 
Verantwortlich für den Inhalt: ANSCHRIFT FÜR ALLE an er gui 
maligen Abdruck und die Aufnahme 
TORSTEN SEIBT VERANTWORTLICHEN: lee: in den Kassetten-Service sowie das 
— Postfach 1107, 8044 Unterschleißheim Copyright für weitere wirtschaftliche 
Autoren: = Tel.: 089/12980 11 Verwertung. Alle in dieser Zeitschrift 
DIRK CYRENER Es gilt Preisliste Nr. 6 vom 1.2.86 veröffentlichten Beiträge sind urheber- ’ 
ROBERT DILLINGER Media-Unterlagen bitte anfordern . rechtlich geschützt. Jedwede Verwen- 
LEONEL LAURENCO __——_—_ dung ist untersagt. Namentlich gezeich- 
En De VERTRIEB: Verlagsunion Wiesbaden nete Beiträge unserer Mitarbeiter 
u = stellen nicht unbedingt die Mei d 
ULRICH SCHAFER ©1986 by CA-Verlags-Gesellschaft Redaktion dar. == a . 
NORBERT SCHMELZER mbH (i.G.) 
RUDOLF SCHMID-FABIAN Geschäftsführer: Werner E. Seibt Erstverkaufstag: 5. Dezember 1986 


P.SCHWILK En 
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‚DATA BECKER Buchhits 


zu Commodore €16 und Plus/4 


4 


Mit diesem Buch zu Ihrem C16 verfügen Sie über eine leichtverständliche Ein- 
führung in Handhabung, Einsatz und Programmierung des C 16, die keinerlei Vor- 
kenntnisse voraussetzt. Themen: Bedienung von Tastatur und Editor, erster Befehl 
und erstes Programm, BASIC-Einführung mit Erstellung einer kompletten Adressen- 
‘verwaltung! Nur der richtige Einstieg garantiert den späteren Erfolg! 

C16 für Einsteiger, 205 Seiten, DM 29,— 


Haben Sie einen C16/116 und kein Futter für ihn? Dann kann Ihnen mit diesem 
Buch geholfen werden. Aus dem Inhalt: Spiele, Malprogramm, Laufschrift, Textverar- 
beitung, Dateiverwaltung, Vokabeltrainer, Text-Hardcopy, Merge, Shape-Editor, simu- 
lierter Direktmodus, der integrierte Monitor, Zeropage, Routinen des Betriebssystems 
und des BASIC-Interpreters. 

Dieses Buch gehört griffbereit neben Ihren Rechner. 

C16 Tips & Tricks, 201 Seiten, DM 29,— 


Klar und ausführlich werden die Möglichkeiten der Grafikpro- 
grammierung auf den Rechnern C16/C116/Plus/4 vorgestellt. 
Die Grafikbefehle des BASIC 3.5 werden mit vielen Beispielen 

verdeutlicht: Farb-, Multi-, Color- und Hi-Res-Modi, Befehle zur 
Steuerung von Grafik und Shapes, 2D-/3D-Programmierung, 
CAD und Statistik. Mit diesem Buch lernen Sie Ihren Rechner von 
seiner stärksten Seite kennen. 

Das Grafikbuch zu C16 - C116 - Plus/4, ca. 300 Seiten, 

DM 29,-. Erscheint ca. August 


Machen Sie mehr aus Ihrem Rechner! Anhand vieler Programmbei- 
spiele führt der Autor in den Befehlssatz der Rechner C16/C 116/ 
Plus/4 ein: Ein-/Ausgabe mit Input/Print, Rechnen mit Variablen, 
Stringverarbeitung, Verzweigung und Schleifen, Grafik- und Musik- 
programmierung, komplette Befehls-Übersicht. Für Einsteiger und 
Fortgeschrittene gleichermaßen interessant. 

Das BASIC-Buch zu C16 - C116 - Plus/4, ca. 250 Seiten, DM 29,—. 
Erscheint ca. August 


Programmierung in Maschinensprache - leichtgemacht. 

Der Befehlssatz des Prozessors, die Verwendung des TED-MON, die 
wichtigsten Routinen des Betriebssystems. Auf diese Weise können Sie 
das Know-how, welches in Ihrem Betriebssystem steckt, in Ihre eigenen 
Programme integrieren. 

BON: C16 - C116 - Plus/4 Maschinensprache, ca. 300 Seiten, DM 29,—. 
Erscheint ca. August 


Wer seinen Commodore Plus/4 richtig nutzen will, der kommt an diesem Ideenbuch 
nicht vorbei. Aus dem Inhalt: Was ist eine Textverarbeitung, welche Vorteile bietet 
sie, Installation der Plus 4-Software, Serienbriefe, Steuerzeichen, Peeks und Pokes, 
Balkengrafik, Funktionsplotter, Dateiverwaltung, Listing der Zero-Page (Systemspei- 
cher), u.v.m. Gehört zu jedem Plus/4! 

Effektiv & Kreativ mit dem Commodore Plus/4, 

244 Seiten, DM 49,— 


Commodore Plus/4 Tips & Tricks enthält eine hochkarätige Sammlung 
von Anregungen, Ideen und fertigen Lösungen zur Programmie- 
rung Ihres Plus/4: Anwenderprogramme aus den’Bereichen 
Unterhaltung, Grafik, Text- und Dateiverwaltung. Viele Utilities 
wie Text-Hardcopy, REM-Killer, Mergen, Shape-Editor und 
Datumsberechnung. Die wichtigsten Zeropageadressen 
und Betriebssystemroutinen führen hin zur Pro- 
grammierung in Assembler. Eine echte Hilfe für alle 
ernsthaften Programmierer. 

Plus/4 Tips & Tricks, 221 Seiten, DM 29,— 


Fa EEE | 
Merowingerstr. 30 - 4000 Düsseldorf - Tel. (0211) 310010 
F: UP" Eee: Zee EEE: Gere ‚SER: 


TEST 


UND NOCH EINMAL 
SOFTWARETESTS- 
DIESMAL VON KINGSOFT 


Warum denn in die Ferne schweifen.... 

Bekannterweise ist das Software-Dorado für 16er-Besitzer ja in England 
beheimatet. Von dort kommt die meiste (und oft auch die beste) 
Software für diese Rechner. Doch nicht nur die britische Insel verfügt über 
großartige Programmierer, denn mit Kingsoft konnte nun zum ersten 
Male eine deutsche Firma gleich drei der begehrten britischen Software- 
Oscars einheimsen. Grund genug für uns, Kingsofts aktuelles Software- 
angebot unter die Lupe zu nehmen. 


Zunächst zum Kingsoft-Flaggschiff, 
der Winterolympiade. Bei diesem 
Programm handelt es sich um den 
eingangs erwähnten Preisträger. Von 
einer englischen Commodore-Zeit- 
schrift wurden diesem Programm 
gleich drei der begehrten Trophäen 
verliehen: Für das C 16-Programm 
des Jahres, die C 16-Grafik des Jah- 
res und, was wohl am wichtigsten 
zu bewerten ist, für den Program- 
mierer des Jahres. 

Nach dieser Anerkennung selbst 
außerhalb der deutschen Grenzen 
darf man zu recht auf die Olympia- 
de gespannt sein. ; 


DAS SPIEL: 


Vom Spielautomaten und bereits 
vorhandenen Versionen auf anderen 
Computern ist das Sportspiel ja be- 
reits bekannt. Auch auf dem klei- 
nen C 16 gab es bereits Versuche, 
ähnliche Versionen zu ermöglichen, 
doch leider ließen diese bisher an 
Grafik und Sound doch sehr viel 
vermissen. Nun aber stellt -Kingsoft 
mit der prämierten Winterolym- 
piade eine wirklich gelungene Ver- 
sion für die 16er-Modelle vor. 
Diese läßt weder in Grafik noch 
Umsetzung der Spielidee etwas zu 
wünschen übrig. Es sind insge- 
samt sechs Diszplinen vorhanden, 
welche nacheinander gespielt 
werden können: 
. Biathlon 
. Slalom 
. Skispringen 
. Eisschnellauf 
. Bobfahren 

und 
6. Abfahrtslaufen 
Besonders gefallen uns die grafischen 
Darstellungen der einzelnen Diszipli- 


un PwWwDeo 


nen, die sogar jenen des C 64 durch- 
aus das Wasser reichen können. 
Weiterhin konnte durch die Tatsache, 
daß die Diszplinen nacheinander ge- 
laden werden, sehr viel Speicherplatz 
für die einzelnen Sektionen verwen- 
det werden, was sich in der abwechs- 
lungsreichen Szenerie darstellt. 


Fazit: 


Wir können uns der englischen Jury 
nur anschließen, die Kingsoft- 
Winterolympiade hat den Preis als 
bestes C 16-Spiel des Jahres durch- 
aus verdient. 


KARATE KING 


Der Name läßt kaum Spekulationen 
hinsichtlich des Spielinhalts aufkom- 
men, hier handelt es sich um ein 
weiteres Spiel nach bewährtem 
Muster. Die Karate King-Version 
von Kingsoft ist nur auf erweiterten 
l6ern oder dem Plus/4 lauffähig. 
Dies läfst vermuten, daß bei die- 
sem Spiel sehr aufwenige Grafi- 
ken und Spielabläufe zu erwarten ° 
sind. So kann mit dem Spiel all das 
verwirklicht werden, was der Käu- 
fer vielleicht auch schon an ande- 
ren derartigen Games gelernt hat. 
Im Schlagabtausch mit dem Gegner 
sind ebenso Fußtritte (in beliebiger 
Höhe) wie Faustschläge möglich, 
Kung-Fu-Begeisterte werden ihre 
wahre Freude an Karate King ha- 
ben. Die Figur wird mit dem Joy- 
stick in Bewegung gehalten. Je 

nach Anzahl der gewonnen Kämp- 
fe gelangt der Spieler in das nächst- 
höhere Level, um dort auf schwie- 
rigere Gegner zu treffen. Alles in 
allem ist Karate King also eher ein 
alter Bekannter, herausragend ist 
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allerdings die wirklich gekonnte Um- 
setzung dieses Beinahe-Klassikers 
auf die 3.5er-Rechner zu nennen. 


Fazit: 


Wer Freude an dieser Art von Sport- 
Games hat, ist mit Karate King 
sicherlich bestens bedient. Viel bes- 
ser dürfte dieses Spiel nicht mehr um- 
zusetzen sein, als dies Kingsoft 
praktiziert. 


BRDIGEHEAD 


Auch bei Bridgehead handelt es sich 
um ein Spiel, welches nur auf den 
Rechnern mit 64k Speicher läuft, 
da es über 30 KBytes Speicher benö- 
tigt. Für Interessenten ohne Erwei- 
terung bietet Kingsoft jedoch auch 
eine Sparversion von Bridgehead an, 
die jedoch nicht so komfortabel 
programmiert sein dürfte. Der Spiel- 
zweck ist schnell erklärt, es handelt 
sich hier um ein weiteres Game 
nach “Rambo“-Manier. Lediglich 
der grafische Aufbau ist hier verän- 
dert worden. Fortan muß der tapfe- 
re Streiter nicht mehr in Draufsicht 
über das Schlachtfeld bewegt wer- 
den, wie dies beispielsweise bei 
“Legionär“, ebenfalls von Kingsoft, 
der Fall ist. Statt dessen muß die 
Figur aus der seitlichen Ansicht her- 
aus über das Spielfeld gebracht wer- 
den. Dieses ist eigentlich sehr schön 
gestaltet worden, vor allem bietet 
es mehr Abwechslung als in ähnli- 
chen Spielen. Natürlich geht es 
auch hier darum, möglichst viele 
Feinde niederzumachen, dies kann 
wahlweise per Hand oder mit ver- 
schiedenen Waffen bis hin zur 
Handgranate erledigt werden. Bei 
dem heroischen Kampf muß mög- 
lichst weit vorgedrungen werden, 
neben den Angriefern sind auch n 
noch Bodenminen und verschiede- 
ne Plattformen bei diesem Vorha- 
ben im Weg. Der große Vorteil ge- 
genüber den üblichen Spielen be- 
steht darin, daß der Spieler bei Ver- 
lust einer Figur nicht gleich wieder 
an den Spielanfang versetzt wird, 
wie das normalerweise üblich ist. 
Statt dessen sind immer wieder ein- 
zelne Bezugspunkte vorhanden, zu 
denen die Figur je nach zurückge- 
legter Strecke versetzt wird. 


Fazit: 


Jedem das sein, die Einzelkämpfer- 
Naturen und Rambo-Fanatiker un- 
ter den Computereignern haben hier 
wieder ein neues Angebot auf dem 
Spielzettel, welches von der Pro- 
grammierqualität her sicher einen 
gehobenen Stellenwert einnimmt. 
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SERVICE 


WEG MIT DEN GUMNMI- 
TASTEN! MEHR KOMFORT 
FÜR DIE 116-TASTATUR! 


Billig ist er ja, der 116er. Aber 
deshalb muß er Anwender doch 
nicht auf den Komfort einer ordent- 
lichen Tastatur verzichten. 
Dachte zumindest unser Autor. 
Gesagt — getan, nach etwas Tüftelei 
waren Schaltplan und Materialliste 
erstellt, hier die Anleitung zum Bau 
einer Profi-Tastatur für den C 16! 


10 PRIT “S FUKTOIRT!“ 
20 GOT I 
RN 


?SYNTAX ERROR 
RUN 


?SYNTAX ERROR IN 10 


Kennen Sie das? — Ja? — Dann sind 
Sie sicherlich Besitzer eines „„Gum- 
mitasten-Winzlings““ — ich meine 
den C116, der seine Benutzer oft 
in den Wahnsinn treibt. — 

Schluß mit Wutausbrüchen, Finger- 
kuppenentzündungen, Nervenzu- 
sammenbrüchen und Fingerkrämp- 
fen!! — Für nur ca. 40-50 DM 
(Materialkosten) bekommt Ihr 
C116 eine professionelle Tasta- 

tur mit separatem Cursor und 
Zehnerblock. Falls Sie Besitzer 
eines C16 oder Plus/4 sind und eine 
Tastatur mit Zehnerblock benöti- 
gen — bitte sehr: Auch für diese bei- 
den Rechner gilt der Artikel — 
ebenso wie die Software — unver- 
ändert. 


DAS PRINZIP 


Bevor wir uns dem Aufbau des neu- 


en Keyboards widmen, muß erst ein- 
mal geklärt werden, wie eine Com- 
puter-Tastatur eigentlich funktio- 
niert. Wie Sie sich sicherlich denken 
können, besteht eine Taste aus ei- 
nem Schalter, dessen Zustand 
(„gedrückt“ oder „nicht gedrückt“) 
vom Computer erkannt werden 
muß. 

Eine gewöhnliche Tastatur hat 60 — 
90 Leitungen, die von der Tastatur 


zur Computerplatine führen? — Nein! — 


Wie durch Autschrauben des Rech- 
ners festzustellen ist, kommt man 
bei den 65 Tasten (eigentlich 64, 
da die Shift-Tasten miteinander ver- 
bunden sind) des C116 mit 16 Lei- 
tungen aus! 

Das Prinzip ist ganz einfach: Man 
ordnet die Tasten in einer Matrix 


an: Beim C16, C116, Plus/4, VC20, 
C64 und SX64 jeweils 8 Spalten zu 
je 8 Zeilen (8x8=64). Die Tastatur 
wird „abgefragt“, indem man nach- 
einander auf jeweils eine Spalte eine 
Spannung legt, und dann ‚nach- 
sieht“, in welcher Zeile ein Strom 
fließt. Wo sich Spalte und Zeile 
kreuzen, muß sich die gedrückte 
Taste befinden, da der Schalter 
dort Kontakt erzeugt hat. 

Zur Ansteuerung einer solchen 
8x8-Matrix bedarf es also eines 
8-Bit-Ausgangs für die Spalten-Aus- 
wahl (bei C116, C16 und Plus/4 der 
„Keyport-Baustein“ 6529 an Adres- 
se $FD30), sowie eines 8-Bit-Ein- 
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gangs für die Zeilenabfrage (“TED“ 
8360 mit Register 8 = Adresse 
$FFO8 — Abb:-3). 


DIE TASTATURABFRAGE 


Die Tastaturabfrage übernimmt eine 
Betriebssystem-Routine namens 
SCNKEY (ab Adresse $DB11):; sie 
besorgt die Abfrage der Tastatur 
nach oben beschriebenem Prinzip, 
dekodiert die erkannte Matrix je 
nachdem, ob SHIFT-, COMMODO- 
RE-, CTRL- oder keine zusätzliche 
Taste gedrückt wurde anhand der 
vier Tabellen ab Adresse $E026 
und schreibt den ASCII-Code der 


SERVICE | 


gedrückten Taste in den Tastatur- 
puffer. 
SCNKEY wird alle 1/60 Sekunden 
von der Interrupt-Routine aufge- 
rufen, kann aber in der Kernal- 
Sprungliste auch über die Adresse 
FF9F von eigenen Maschinen- 
sprache-Programmen aus angesprun- 
gen werden. 


DIE NEUE SOFTWARE 


Die von mir — weil saubillig 

(9,80 DM!), leistungsfähig (95 Ta- 
sten) und komfortabel (ähnlich wie 
bei C16/C64) — gewählte Tastatur 
läßt sich nicht an den Tastaturport 


des C116 anschliefß3en, da sie an- 
ders belegt ist und eine andere 
Matrixaufteilung (16x6 statt 8x8) 
hat: sie wird deshalb über die in 
der COMMODORE WELT 10/86 
auf Seite 48 beschriebene User- 
Port-Platine angeschlossen (Nähe- 
res siehe “Hardware‘“). 

Zwar hätte man die erforderliche 
neue SCNKEY-Routine über den 
KEYLOG-Sprung-Vektor in den 
RAM-Bereich legen können; da das 


reicht wird: Sogar der SCNKEY- 
Vektor sowie die Dekoder-Abfrage 
bleiben an der gleichen Adresse. 
Zusätzlich wurde noch ein deut- 
scher Zeichensatz implementiert, die 
etwas unglückliche Belegung des 
Superkeyboards wurde an die des 
C16 bzw. des C64 angeglichen; am 
Zehner-Tastatureld steht neben der 
„Taschenrechner“-Belegung über 
die SHIFT-Lock-Taste noch eine 
Hex-Tastatur zur Verfügung. Die 


6529: SFD30 (schreiben) 


TED: 
SSFFO8 S 


(lesen) 


Normale Tastaturmatrix bei C116, C16, Plus/4 


Betriebssystem aber unkonsequen- 
terweise die STOP- und die 
COMMODORE-Taste beim Laden 
von Kassette und beim Re-Set di- 
rekt über den Tastaturport und 
nicht über die SCNKEY-Routine 
abfragt, müßte man bei diesen bei- 
den Tasten immer auf die alte 
Tastatur „umsteigen“. Das Problem 
tritt aber bei jeder Tastatur auf, 

die nicht dieselbe Matrix und 
Tastenanordnung wie das für Com- 
modore spezielle angefertigte 
C16-/C116-/Plus4-Keyboard hat. 
Ich habe mich deshalb entschlossen, 
das alte Kernal-ROM durch ein mo- 
difziertes Betriebssystem-EPROM 
zu ersetzen, so daß die alte Tasta- 
tur völlig überflüssig wird. 


BETRIEBSSYSTEM- 
ÄNDERUNGEN 


Die Betriebssystem-Änderungen 
wurden so vorgenommen, daß ein 
Höchstmaß an Kompatibilität er- 
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Grafikzeichenbelegung entspricht 
ebenfalls der des C16/C64. 

Die TAB-Taste wird zur CTRL-Taste, 
die CTRL-Taste wird zur COMMO- 
DORE-Taste. i 
Wenn Ihnen die Belegung nicht ge- 
fällt, können Sie die Dekodierta- 
bellen natürlich nach Belieben ver- 
ändern. Einer Zeile im Listing ent- 
sprechen zwei Matrixzeilen, von 
oben nach unten gelesen. 

Da jeder der vier neuen Tastatur- 
dekodier-Tabellen 32 Bytes länger 
als die alte ist, und außerdem die 
SCNKEY- und DECODE-Routinen 
etwas umfangreicher wurden, mußte 
nach freien Stellen im ROM ge- 
sucht werden. Es gelang mir jedoch. 
die neuen Routinen so unterzubrin- 
gen, daß keine andere Betriebssy- 
stem-Routine beeinträchtigt wird 
(auch die RS-232-Software bleibt 
voll erhalten!). Terry Ryan, Fred 
Bowen & Co. mögen es mir verzei- 
hen, daß der Dekodiertabelle Nr. 3 
auch ihre für das Betriebssystem 


« 
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unrelevante NER Rou- 
tine ab SCD89 zum Opfer fiel. 


DIE HARDWARE 


Grundlage der Schaltung ist die User- 


Port-/Centronics-Karte aus COMMO- 
DORE WELTNTr. 10 (Materialko- 
sten: ca. 15 DM — den Centronics- 
Stecker brauchen Sie natürlich 
nicht!). Desweiteren benötigen Sie 
die wirklich sensationell preiswer- 

te Tastatur der Commodore- 
Schrott-Rechner CBM 600/700 

(bei Fa. Völkner, Postfach 5320, 
3300 Braunschweig; Bestell-Num- 
mer 9910965), außerdem 16 Dio- 
den, 8 10K-Ohm-Widerstände, evtl. 
zwei Pfostensteckverbinder (im 
Artikel beschrieben), ein 16- und 
ein 6adriges Kabel sowie ein 
EPROM des Typs 27128, in dem das 


neue Betriebssystem untergebracht 

wird. 

Aufbau der Hardware: 

1. Bauen Sie die Userport-Platine 
wie in 0.8. Artikel beschrieben 
auf — wenn Sie das geschafft ha- 
ben, haben Sie schon 80% der 
Arbeit hinter sich! 

2. Löten Sie — am besten auf der 
Platinen-Unterseite die Pull-Up- 
Widerstände ein. 

3. Löten Sie (bei Bedarf) die 
Pfostensteckverbindungen an 
Platine und Kabel. 

4. Löten Sie die 16 Dioden in die 
Kabelverbindung (z.B. zwischen 
Tastaturstecker und Kabel zur 
Platine). 


EPROM BRENNEN 
Nun möüssen Sie nur noch das Be- 
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triebssystem-EPROM brennen (da 

sollte Ihnen ein Freund mit C-64 

und Eprommer helfen können ...): 

Wenn Sie keinen Assembler zum 

Ändern der Betriebssystemsoft- 

ware haben, gehen Sie bitte fol- 

gendermaßen vor (zum Austesten 
ist RAMOS, das RAM-Betriebs- 
system aus dem COMMODORE 

WELT-Sonderheft für C16/116/ 

Plus/4, Juli 1986 sehr hilfreich!): 

l. Springen Sie in den Monitor und 
geben Sie T C000 FFFF 2000 
ein (dies gilt nur für 32- oder 
64K-RAM. Bei der 16K Grund- 
version müssen Sie in 2 Schritten 
vorgehen: erst T CO00 DFF 
2000 und weiter mit Punkt 2. 
bis Adresse DFFF, dann abspei- 
chern bis 4000, dann T EO00O 
FFFF 2000 und weiter mit 2. 
ab Adresse E000, dann wieder — 
mit anderem Namen — abspei- 
chern bis 4000). 

. Geben Sie nun mit dem M-Befehl 
die im Listing aufgeführten Ände- 
rungen ein. 

Beachten Sie, daß die Adressen 
der linken Spalte um hexadezi- 
mal $A000 vermindert eingege- 
ben werden müssen, also statt 
CD89 z.B. 2C89, statt D4D8 
34D8 usw. Außerdem sind die 
vier Dekodiertabellen ins Hexa- 
dezimalsystem umzurechnen 
(oder mit Basic-Programm direkt 
POKEn). Ansonsten geben Sie 
am besten nur die in der 2.,3. 
und 4. Spalte stehenden Hex- 
Zahlen nacheinander ein. Wenn 
Sie alle Änderungen eingegeben 
haben, speichern Sie die Daten 
für das EPROM mit 

S “TAST-EPROM“ 8,2000, 
6000 ab. 

Nun lassen Sie das EPROM mit die- 

sen Daten brennen und ersetzen das 

alte Kernal ROM (beim C16/116: 

“U4“, beim Plus4: “U24“). 

Wenn alles geklappt hat, werden 

auch Sie mit dem Super-Keyboard 

problemlos eingeben können: 

10 PRINT “ES FUNKTIONIERT!“ 

20 GOTO 10 

RUN 

ES FUNKTIONIERT! 

ES FUNKTIONIERT! 

ES FUNKTIONIERT! 


Ulrich Schäfer 


DD 


DAS NÄCHSTE 
SONDERHEFT 
C16 IM MÄRZ 


An un Zn DZ Lund [u dm uu Bun lu = SZ nn = ln eg au ul zen nn 


präsentiert: 


NETZ 
— „ur 


MEISTERWERKE DEUTSCHER AUTOREN 


von.Udo Gerfz 


Das Spiel der Spiele für alle Besitzer eines C-116, C-16 oder 
Plus/4. 


Ein tolles Sportfest für 1 bis 4 Mitspieler mit 6 Disziplinen, 
Eröffnungsfeier, Wahl der Landesfarben & Hymnen, usw. 


Mit diesem Programm hat Udo Gertz neue Maßstäbe 
gesetzt und wurde dafür soeben von der englischen 
Computerfachzeitschrift COMMODORE COMPUTING 
INTERNATIONAL mit 3 Oskars ausgezeichnet! 


Und die HAPPY COMPUTER schrieb zu diesem Programm: 
„Was ein deutscher Programmierer da aus dem C16 
herausgeholt hat, ist eine kleine Sensation. ‘Winter 
Olympiade’ ist sowohl grafisch als auch spielerisch ein 
Wunder. ... ‘Winter Olympiade’ ist nach unserer Meinung 
das beste C16-Spiel, das derzeit auf dem Markt ist.“ 


Erhältlich auf Kassette/Diskefte für Commodore 116, 16, Plus/4. 


von Udo Gertz 


Die Fortsetzung der sensationellen Winter Olympiade mit 6 
mindestens genauso guten Disziplinen (u. a. Radfahren, 
Stabhochsprung, Turmspringen und Wildwasserkanu) und 
dem gleichen festlichen Rahmen (Eröffnungszeremonie, 

1 bis 4 Mitspieler, Wahl der Landesfarben & Hymnen, usw.) — 
ein Muß für alle Fans von wirklich guten Sportspielen! 


Erhältlich ab Januar ‘87 auf Kassette/Diskette 
für Commodore 116, 16, Plus/4. 
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präsentiert: 
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Net, MEISTERWERKE Do ÄUTOREN 


wos a von Jörg Dierks 

Der bekannte Legionär ist wieder da: diesmal soll er auf feind- 
lichem Gebiet einen Brückenkopf errichten. 

Horizontal in beide Richtungen scrollende Spitzen-Grafik mit vielen 
verschiedenen Bildern. 


Erhältlich auf Kassette/Diskette für Commodore 116, 16, Plus/4. 


nn a... von Jörg Dierks 
Das endgültige Karatespiel für Ihren Plus/4 mit ausgezeichneter Animation 
durch neuentwickelte Multicolor-Softsprites, die flimmerfreie und schnelle 
Action garantieren ohne störende Farbüberschneidungen. Mehrere 
verschiedene Hintergrundgrafiken sorgen für fernöstliche Stimmung. 

Für 1 oder 2 Spieler. 


Erhältlich auf Kassette/Diskette für Commodore 16 (+64k), Plus/4. 


Damit Sie sehen, daß wir außer Spielen auch was von „ernsthafter” Software verstehen, hier einige Beispiele: 
BUSINESS BANG von Andreas Arens & Michael Meiszl 
Das „unmögliche” Modul für den C-64: 61183 Bytes frei für BASIC-Programme und -Variablen sowie über 50 neue BASIC- 
Befehle! & Erhältlich als Modul für C-64 
Ban DATE von Jürgen Kuck 
Universelles Dateiprogramm für beliebige Daten (z.B. Adressen, Schallplatten, Videos, usw.) Leistungsmerkmale: Freier 
Aufbau der Eingabemaske auf dem gesamten Bildschirm, Eingeben und Ändern von Datensätzen, Sortiereri nach belie- 
bigen Kriterien, sehr komfortable Ausdruckmöglichkeiten (z.B. selektiert, mit oder ohne Maske, auf Adreßetiketten), 
Suchen von beliebigen Ausdrücken, 4 Funktionstasten können frei mit beliebigen Texten belegt werden (dadurch 
schnelle Eingabe von häufig vorkommenden Wörtern), usw. 
% Erhältlich auf Kassette/Diskette für Commodore 116, 16, Plus/4. 
MILES HALR von Fritz Schäfer 
Mit diesem Tabellenkalkulationsprogramm können Sie alle Being durchführen, die tagtäglich anfallen, z.B. Füh- 
rung einer Haushaltskasse, Einkauf-/Verkauf-Erlös, usw. Leistungsmerkmale: Vielfältige mathematische Funktionen (Addi- 
tion, Subtraktion, Multiplikation, Division, Summe, Durchschnitt, Minimum, Maximum), Einfügen/Löschen von Spalten/Zei- 
len, Ausdruck des Arbeitsblattes (ganz oder teilweise), Kopieren von Formeln und Werten in andere Zellen, 4 Funktions- 
tasten können frei mit beliebigen Texten belegt werden (dadurch schnelle Eingabe von häufig vorkommenden Wör- 
tern), usw. % Erhältlich auf Kassette/Diskeftte für Commodore 116, 16, Plus/4 
TERT von Fritz Schäfer 
Leistungsfähiges und einfach zu bedienendes Textverarbeitungsprogramm mit vielen Profi-Funktionen. Leistungsmerk- 
male: Texte werden mit integriertem Turbo-Tape auf Kassette abgespeichert, Flattersatz (linksbündig), Blocksatz (rechts- 
bündig), Zentrieren, Suchen und Ersetzen, halbautomatische Wort-Trennung, 4 Funktionstasten können frei mit beliebi- 
gen Texten belegt werden (dadurch schnelle Eingabe von häufig vorkommenden Wörtern) usw. Der Textspeicher 
umfaßt auch mit 16K bereits 6000 Zeichen (mehr als eine DIN A4 Seite). 
% Erhältlich auf Kassette/Diskeffe für Commodore 116, 16, Plus/4. 
IRB PLUS von Andreas Arens h 
Mit diesem Modul wird Ihr C-16 bzw. Plus/4 um zahlreiche neue Funktionen erweitert, u.a.: fest eingebautes Turbo Tape 
(8mal schneller taden & speichern von Kassette), daß Programme bis zu 60/K abspeichern kann — zahlreiche neue 
BASIC-Befehle wie OLD, DUMP, WINDOW, MERGE, usw. — ein BASIC-Listing kann mit den Cursor-Tasten vor- und rückwärts 
gescrolit werden. Als besonderer Clou erlaubt es TURBO PLUS Besitzern eines Plus/4, die eingebaute Software auch mit 
Kassette zu benutzen! % Erhältlich als Steckmodul für C-116, C-16 und Plus/4. 


in den Fachabteilungen von Quelle KARSTADT 


sowie in allen guitsortierten FE und im guien Versandhandel. 
Vertrieb: RUSHWARE und MICRO HÄNDLER, in Österreich: BARASOET 


ACHTUNG! Wir suchen ständig Programmierer 2 > Kl Ri GSoO eT 


für fast alle Computer-Typen, die gegen erst- 


’ ER F 2 $pitzensoffware : 
klassige Bezahlung ‘Spiele von internationalem a Seit 1983 
Niveau schreiben. en Made in Germany 


2 Wenn Sie Interesse haben, wenden Sie sich‘ F. Schäfer, Schnackebusch 4, 
5 noch heute an uns. : D-5106 Roetgen, Telefon (024.08) 51 19 


